: str<> str= 0= ;
: get-line 0 parse save-mem ;

: <<< ( "delimiter" "<delimiter>..." -- )
    parse-word save-mem
    begin get-line 2over 2over str<> while
	    type refill if cr then repeat
    2drop 2drop ;