1{-# LANGUAGE QuasiQuotes #-} 2 3import Here 4 5str :: String 6str = [here|test 7test 8test test |] 9 10 11main :: IO() 12main = do putStrLn str 13