let q s = putStrLn (s ++ show s) in q "let q s = putStrLn (s ++ show s) in q "