( Problems, page 333 )
( Skipping 1, don't have blocks )

: based.  create ,
          does> base @ >r @ base ! . r> base ! ;

: plural  create ,
          does> @ swap ?dup if  0 do dup execute  loop then ;

: tourne  [compile] do ; immediate
: retourne  [compile] loop ; immediate

: ascii  32 word 1+ c@ [compile] literal ; immediate

( Skipping 6, I have no idea how to deal with the input stream and it sounds
  like pain. )
