For example:
{-# LANGUAGE OverloadedStrings, QuasiQuotes #-}
import qualified Data.Text.IO as T
import Text.QuasiText
main :: IO ()
main = do
user <- T.getLine
email <- T.getLine
airSpeedVelocityOfAnUnladenSwallow <- fmap read getLine :: IO Int
T.putStrLn [embed|
The air speed velocity of an unladen swallow is $airSpeedVelocityOfAnUnladenSwallow.
Your username is $user.
Your email is $email.
1 + 1 = $(1 + 1). |]