(mac among (var expr within . body) `(between ,var ,expr (repeat (rand 4) ,within) ,@body)) arc> (among x (range 0 10) (pr "*") (pr x)) 0***12*3***4***5*67**8*9*10nil
-----