strings.raku

multi sub to_instruction(Str $x, Int $pos is rw) {
    given $x {
        when '>' {
            $pos += 1;
            Empty
        }
        when '<'
            $pos -= 1;
            Empty
        }
        default {
            Instruction.new(atom => $x, target => $pos)
        }
    }
}