🚀 go-pugleaf

%% string1 string2 append string
% appends two strings
/append {
	2 copy length exch length add	% find the length of the new.
	string dup
% string1 string2 string string
	4 2 roll
% string string string1 string2
	2 index 0 3 index
% string string string1 string2 string 0 string1
	putinterval	% stuff the first string in.
% string string string1 string2
	exch length exch putinterval
} bind def
--
--russ <nelson@clutx.clarkson.edu> I'm proud to be a humble Quaker.
Clear cutting is criminal, spiking trees is criminal, and using hyperbole of
this magnitude in a serious discussion is criminal.  -- Irv Chidsey