1 2 3 4 5 6 7
{-# LANGUAGE TemplateHaskell #-} module T20791 where import Control.Monad.IO.Class main = $(liftIO $ (print ()) >> [| print () |])