pcycle :: P a -> P a

pattern variant of Data.List.cycle

> import Sound.SC3.Lang.Pattern.Step

> evalP (ptake 5 (pcycle (pseq [1,2,3] 1)))

[1,2,3,1,2]