4 lines
167 B
Text
4 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 ;
|