arithmeticComparison :: Parser BooleanExp
arithmeticComparison = do { l <- arithmeticExpression;
                            do { reservedOp "=";
                                 equals l}
                          <|>
                            do { reservedOp "<=";
                                 lessOrEquals l}
                           }
arithmeticComparison :: Parser BooleanExp
arithmeticComparison = do { l <- arithmeticExpression;
                            do { reservedOp "=";
                                 equals l}
                          <|>
                            do { reservedOp "<=";
                                 lessOrEquals l}
                           }
arithmeticComparison = do { l <- arithmeticExpression;
                            do { reservedOp "=";
                                 equals l}
                          <|>
                            do { reservedOp "<=";
                                 lessOrEquals l}
                           }