1{-# LANGUAGE TemplateHaskell #-}
2x = [d|
3
4      f :: a -> Int
5      f x = 1 |]
6y = [d|
7
8      f2 :: a -> Int
9      f2 x = 1 |]
10