brittany-0.14.0.0: data/Test241.hs

{-# LANGUAGE PatternSynonyms #-}
pattern HeadC x <- x : xs where
  HeadC x = [x]