 -> [a] -> Pattern Int -> Pattern a
toScale' _ [] = const silence
toScale' o s = fmap not
toScale' :: Num a => Int -> [a] -> Pattern Int -> Pattern a
toScale' _ [] = const silence
toScale' _ [] = const silence