1 2 3 4 5 6 7 8
{-# LANGUAGE TemplateHaskell #-} module Main (main) where import TH main :: IO () main = putStrLn $foo