/# Rosetta Code problem: https://rosettacode.org/wiki/User_input/Text
by Galileo, 10/2022 #/

"Enter any string: " input nl
true while
    75000 "Enter the number " over tostr chain ": " chain input
    nl tonum over == not
endwhile
drop pstack