(putStrLn . \s -> s ++ show s) "(putStrLn . \\s -> s ++ show s) "