: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 ;