[Template-haskell] Generating arithmetic expressions in TH