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