input s:
    !print\ s
    !decode!utf-8 !read-line!stdin
local :astring input "Enter a string: "
true
while:
    try:
        to-num input "Enter the number 75000: "
        /= 75000
    catch value-error:
        true