{-# OPTIONS_GHC -fwarn-unused-matches #-}
module A where

f a = ()