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