fn potato2 do
    start:
        -1 + dup
        1000 potato drop
        65 print_utf8 10 print_utf8
    start swap jump_if
end