diff --git a/app/Parser.hs b/app/Parser.hs
index cca4e48..8ca8ac2 100644
--- a/app/Parser.hs
+++ b/app/Parser.hs
@@ -218,7 +218,7 @@ err :: ShuntError -> Either ShuntError a
 err = Left
 
 shuntPrlg :: Ops -> PAST -> ShuntResult
-shuntPrlg ot = shuntPrlg' (("", Op 0 $ Infix X Y) : ot)
+shuntPrlg ot = shuntPrlg' (("", Op 0 $ Infix Y X) : ot)
 
 shuntPrlg' :: Ops -> PAST -> ShuntResult
 shuntPrlg' ot (List hs t) =