samer@4: function b=pad1s(n,a), b=[a ones(1,n-length(a))];
samer@4: % pad1s - pad a size vector with 1s till it is a given length
samer@4: %
samer@4: % pad1s :: E:natural, [[1,D]] -> [[1,E]].
samer@4: % 
samer@4: % Note, pad1s has no effect if vector is already longer than n.