:set -XTemplateHaskell
:m + Language.Haskell.TH
$( do runIO $ putStrLn "Q"; [| 'x' |] )