self
: ( ') parse 2drop ;
forth
: |  lnparse 2drop ;

loc:
  variable size
  : make dup -rot here place swap dup allot 0 1, 1+ size +! ;
  : free size @ negate allot 0 size ! ;
  :: make later free ;
;loc alias zt

loc:
  : list 0 last repeat @ 0; dup 13 + dup 1- c@ type space swap 1+ swap again ;
 :: list cr . ." words defined" cr ;
;loc alias words

: .s 10 for r@ 1- [ $86048b 3, ] . next cr ;
