Warning: this is an htmlized version!
The original is here, and
the conversion rules are here. 
  % strlen C1: nasm( 4, "extern strlen\n\tdd strlen\n");

  :RSR 0<.">
    : S0<.">  S> DUP strlen 2DUP TYPE + 1 + >S ;
   g: DEMO    0<."> dbstuff( "Hello\n", 0);
              0<."> dbstuff( "There!\n", 0); ;