Type: cycleChoose :: [a] -> Pattern a
cycleChoose :: [a] -> Pattern a
similar to choose, but only picks once per cycle
d1 $ sound "drum ~ drum drum" # n (cycleChoose [0,2,3])
