5 lines
167 B
Text
5 lines
167 B
Text
|
:example ("-)
|
||
|
|
'Enter_a_string:_ s:put s:get s:keep
|
||
|
|
[ 'Enter_75000:_ s:put s:get-word s:to-number nl #75000 eq? ] until
|
||
|
|
'Your_string_was:_'%s'\n s:format s:put ;
|