{-# LANGUAGE QuasiQuotes #-} module Main (main) where import Here str :: String str = [here|test test test test |] main :: IO () main = do putStrLn str