{-# LANGUAGE PatternSynonyms #-}
pattern x :> y = [x, y]