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