-- | @palindrome p@ applies @rev@ to @p@ every other cycle, so that
-- the pattern alternates between forwards and backwards.
palindrome :: Pattern a -> Pattern a
palindrome p = slowAppend p (rev p)
palindrome :: Pattern a -> Pattern a
palindrome p = slowAppend p (rev p)
palindrome p = slowAppend p (rev p)