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