bool :: (Functor f, Ord a, Num a) => f a -> f Bool
pbool :: (Ord a, Num a) => P a -> P Bool

> import Sound.SC3.Lang.Pattern.List

> pbool (pseq [1, 0, 1, 0, 0, 0, 1, 1] 1)

> bool [1, 0, 1, 0, 0, 0, 1, 1]