function Y=lazy_cons(X,Z)
% lazy_cons - Make sequence given head and tail
%
% lazy_cons :: A, (unit -> seq A) -> seq A.

Y=data(size(X),'datafn',@(o)X,'nextfn',@(o)Z(), ...
	'charfn',@(o)[tostring(X) ' | ' tostring(Z) '()']);

