{-# LANGUAGE TypeOperators #-} module DataHeadParen where data (
a1
:<
a2
) =
Foo