12 lines
220 B
Text
12 lines
220 B
Text
|
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
|