test_names = "Vyrdax,Drakzyph,Fyrryn,Elarzris"
test_dirs = "R3,L2,R3,L1"

main! = |_args| {
    names = test_names.split_on(",")
    dirs = test_dirs.split_on(",")
    var $name_index = 0.I64

    for dir in dirs {
        right = dir.starts_with("R")
        dist = I64.from_str(dir.drop_prefix("R").drop_prefix("L"))
        dbg right
        dbg dist
        match dist {
            Ok(d) => {
                sd = if right d else -d
                $name_index = $name_index + sd
                if $name_index < 0 {
                    $name_index = 0
                }
                # Uncomment the code below to get a segfault
                #if $name_index >= names.len() {
                #    $name_index = names.len() - 1
                #}
            }
            Err(_e) => { crash "bad" }
        }
    }
    dbg $name_index
    Ok({})
}