function X=rndmap(gen,x,rs)
% rndzip - Random sequence by zipping argument sequences
%
% rndzip ::
%    (A -> rndgen B) ~'sampling function',
%    seq A1          ~'argument sequences', 
%    rndstate        ~'initial random state'
% -> seq B.
X=rndzip(gen,x,rs);


