let a = "\"let a = \" ++ show a ++ \" in putStrLn $ \" ++ a " in putStrLn $ "let a = " ++ show a ++ " in putStrLn $ " ++ a