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