(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