9 lines
245 B
Text
9 lines
245 B
Text
/# 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
|