% singleton - infinite sequence repeating one value
%
% singleton :: A -> seq(A).
function s=singleton(x), s=cons(x,nil); end
