complexify template-haskell sample