function b=pad(x,sz,a), 
% pad - pad out an array to given size with given elements
%
% pad :: A, D:[[2]], [[S]->A] -> [D->A].

[N,M]=size(a);
b=repmat_to(x,max(sz,[N,M]));
b(1:N,1:M)=a;
