Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
lua add_SFprims("STO S> TOS >S") end;

  % &FOO   AT:					-- &FOO ( -- adr )
  % FOO!   TO:					-- FOO! ( w -- )
  % FOO   CON: nasm( 4, "\tdd 0x12345\n");	-- FOO  ( -- w )

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

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

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