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