diff --git a/GenOrdAST.hs b/GenOrdAST.hs
index c58cae5..53aee84 100644
--- a/GenOrdAST.hs
+++ b/GenOrdAST.hs
@@ -117,8 +117,5 @@ items = concat
  
    u = undefined
 
-joinLines :: [String] -> String
-joinLines xs = concat [x ++ "\n" | x <- xs]
-
 main :: IO ()
-main = putStr $ joinLines $ genHeader ++ items
+main = putStr $ unlines $ genHeader ++ items