pcontinue :: P x -> (x -> P x -> P a) -> P a

> import Sound.SC3.Lang.Pattern.Step