src/lib.fs

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