Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
lua c1word("strlen") end;

:RSR 0<.">
  : S0<.">   S> DUP strlen 2DUP TYPE + 1 + >S ;
function zdotquo (...) f[[ 0<."> ]]; call(dbstuff, arg) end;

:RSR LITW  COL: SGOBBLE2 ;
function litw (n) f("LITW"); nasm(2, format("\tdw %s\n", n)) end;

:RSR BRANCH   COL:  SBRANCH ;
:RSR 0BRANCH  COL: S0BRANCH ;
   : YES/NO   if   zdotquo( "yes\n", 0);
	      else zdotquo( "no\n", 0);
	      then ;
  g: DEMO     zdotquo( "Hello\n", 0);
	      litw( 22); YES/NO  litw( 0); YES/NO ;