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