module Main where

-- | Here we go.
data Foo = Foo {unFoo :: Int}
  deriving (Eq)

-- | And once again.
data Bar = Bar {unBar :: Int}
  deriving (Eq)