diff --git a/a5/src/APL/AST.hs b/a5/src/APL/AST.hs
index dcaa542..302cba5 100644
--- a/a5/src/APL/AST.hs
+++ b/a5/src/APL/AST.hs
@@ -60,7 +60,7 @@ printExp (Let v e1 e2) =
 printExp (Lambda v body) =
   parens $ "\\" ++ v ++ " -> " ++ printExp body
 printExp (Apply x y) =
-  printExp x ++ " (" ++ printExp y ++ ")"
+  parens $ printExp x ++ " " ++ printExp y
 printExp (TryCatch x y) =
   parens $ "try " ++ printExp x ++ " catch " ++ printExp y