Первая версия Main, но пока с do-нотацией

coursework/part1/src/Lib.hs

@@ -96,7 +96,7 @@ processExpression s = case runParser expression s of
             show a ++ " " ++ 
             operationToString op ++ " " ++ 
             show b ++ " = " ++ 
-            show (calculateExpression (a, op, b))
+            show (calculateExpression (a, op, b)) ++ "\n"
         _ -> err
     where
         err = error $ "Unable to parse the following expression: \"" ++ s ++ "\""