lua-until EOL
  dofile("crim/crim.lua")        -- (find-miniforth "crim/crim.lua")
  dofile("crim/crimextras.lua")  -- (find-miniforth "crim/crimextras.lua")
  prefer_sf_form("STO S> TOS >S")
EOL

% &FOO  H_AT					# &FOO ( -- adr )
% FOO!  H_TO					# FOO! ( w -- )
% FOO  H_CON  nasm( 4, "\tdd 0x12345\n" )	# FOO  ( -- w )

: S$@,     S> COUNT 2DUP + >S ;

:RSR <.">
:   S<.">  S$@, TYPE ;
:RSR 2<.">
  : S2<."> S<."> S<."> ;

: DEMO     2<."> dbstuff( 6, "Hello\n", 6, "There\n" )  FOO FOO + FOO! ;

asm/C-files: crim/demo2.asm crim/demo2.c
e exit()


#*
cd ~/miniforth/crim/
make clean
make CFLAGS=-g demo2 && \
  ./demo2 7   ;# (+ 7 16 32 64 128)
#*