sys.f

   1 S" :" CREATE ] DOCOL
   2   READ-WORD CREATE
   3   LIT DOCOL ,
   4   ]
   5 EXIT [
   6
   7 : ;
   8   LIT EXIT ,
   9   [ S" [" FIND >CFA , ]
  10   EXIT
  11 [ IMMEDIATE