fmap (\ s -> s "") (s "abba" :: IO ShowS) >>= putStrLn