@@ -0,0 +1,7 @@
+-- Slide 55
+-- It makes more sense to compile this file
+
+import Data.List
+main::IO()
+main = getLine >>= (\x -> getLine >>= (\y -> putStrLn (y ++ x)))