diff -r b34288c8fafa -r 608c8b057c3b tools/PascalParser.hs
--- a/tools/PascalParser.hs	Thu Apr 05 14:50:58 2012 +0400
+++ b/tools/PascalParser.hs	Thu Apr 05 14:58:34 2012 +0400
@@ -581,8 +581,8 @@
            , Infix (try $ string "or" >> return (InitBinOp "or")) AssocLeft
            , Infix (try $ string "xor" >> return (InitBinOp "xor")) AssocLeft
           ]
-        , [  Infix (try $ string "shl" >> return (InitBinOp "and")) AssocNone
-           , Infix (try $ string "shr" >> return (InitBinOp "or")) AssocNone
+        , [  Infix (try $ string "shl" >> return (InitBinOp "shl")) AssocNone
+           , Infix (try $ string "shr" >> return (InitBinOp "shr")) AssocNone
           ]
         , [Prefix (try (string "not") >> return (InitPrefixOp "not"))]
         ]