samer@3: % sigrep - Signal of repeated values
samer@3: % sigrep :: natural, A:[[C,1]] -> signal(C,_).
samer@1: function s=sigrep(n,x)
samer@1: 	%s=sigarray(repmat(x,1,n));
samer@1: 	s=take(n,sigconst(x));