diff --git a/a3/a3-handout/src/APL/Parser.hs b/a3/a3-handout/src/APL/Parser.hs
index cbfd1b9..4b53203 100644
--- a/a3/a3-handout/src/APL/Parser.hs
+++ b/a3/a3-handout/src/APL/Parser.hs
@@ -101,26 +101,33 @@ pLExp =
         <$> (lKeyword "if" *> pExp)
         <*> (lKeyword "then" *> pExp)
         <*> (lKeyword "else" *> pExp),
-      Print
-        <$> (lKeyword "print" *> pStringLit)
-        <*> pExp,
       pFExp
     ]
 
-pPExp :: Parser Exp
-pPExp = pLExp >>= chain
+pExp3 :: Parser Exp
+pExp3 =
+  choice
+    [
+      Print
+        <$> (lKeyword "print" *> pStringLit)
+        <*> pExp,
+      pLExp
+    ]
+
+pExp2 :: Parser Exp
+pExp2 = pExp3 >>= chain
   where
     chain x =
       choice
         [ do
             lString "**"
-            y <- pPExp
+            y <- pExp2
             chain $ Pow x y,
           pure x
         ]
 
 pExp1 :: Parser Exp
-pExp1 = pPExp >>= chain
+pExp1 = pExp2 >>= chain
   where
     chain x =
       choice