module MoreExports (
  H(..),
  R(..),
  D(..),
  N(..),
  foo,
  main ) where

--Another comment
--

newtype N a = Int a

data D a = A a  | B | C a

data R = R { a :: Int, b :: Bool }

data H = I | J | K deriving Show


foo = (+1)

-- A further  Comment

main :: IO ()
main = print J