uclidInv :: Int -> Int -> Pattern a -> Pattern a
_euclidInv n k a = fastcat $ fmap (bool a silence) $ bjorklund (n,k)


_euclidInv :: Int -> Int -> Pattern a -> Pattern a
_euclidInv n k a = fastcat $ fmap (bool a silence) $ bjorklund (n,k)
_euclidInv n k a = fastcat $ fmap (bool a silence) $ bjorklund (n,k)