precedence1AST :: String
precedence1AST = "Right (Prog [ExprAsStm (Call \"+\" [Call \"-\" [Call \"+\" [Number 2,Call \"*\" [Number 3,Number 4]],Number 1],Call \"%\" [Number 2,Number 2]])])"
precedence1AST :: String
precedence1AST = "Right (Prog [ExprAsStm (Call \"+\" [Call \"-\" [Call \"+\" [Number 2,Call \"*\" [Number 3,Number 4]],Number 1],Call \"%\" [Number 2,Number 2]])])"
precedence1AST = "Right (Prog [ExprAsStm (Call \"+\" [Call \"-\" [Call \"+\" [Number 2,Call \"*\" [Number 3,Number 4]],Number 1],Call \"%\" [Number 2,Number 2]])])"