: str<> compare 0<> ;
: <<<  parse-word save-mem begin refill while
  0 parse 2over 2over str<> while type cr repeat 2drop then
  drop free throw ;
<<< end-marker
some text
end-marker