Someone
public text v1 · immutable: 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: 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