src/lib.fs

   1 : / /MOD SWAP DROP ;
   2 : MOD /MOD DROP ;
   3
   4 : '\n' 10 ;
   5 : BL 32 ;
   6
   7 : CR '\n' emit ;
   8 : SPACE BL emit ;
   9
  10 : NEGATE 0 swap - ;
  11
  12 : TRUE -1 ;
  13 : FALSE 0 ;
  14 : NOT 0= ;
  15
  16 : LITERAL IMMEDIATE
  17     ' LIT ,
  18     ,
  19     ;
  20
  21 \ : ':' [ CHAR : ] LITERAL ;
  22