( safe DAY 15.04.2001 )

warning off

0 value sps

: :: : ;

: :noname
  sp@ to sps
  :noname
;

: :
  sp@ to sps :
;

:: ;
  sp@ sps <> -22 ?throw
  postpone ;
; immediate

: (do)
   2dup = -11 ?throw
;

: do
  postpone (do)
  [compile] do
; immediate

: /
  dup 0= -10 ?throw /
;

: mod
  dup 0= -10 ?throw mod
;

warning on