function y=singleton(x)
% singleton - Make sequence with exactly one element
%
% singleton :: A -> seq A.

y=data(size(x),'datafn',@(o)x,'nextfn',@(o)[],'charfn',@(o)'singleton');
