Now: 1582436439942053
Now: 1582436439951424
Tokens:
keyword const
ignore \s
ident max
ignore \s
keyword =
ignore \s
number 100
keyword ;
ignore \n
keyword var
ignore \s
ident arg
keyword ,
ignore \s
ident ret
keyword ;
ignore \n\n
keyword procedure
ignore \s
ident isprime
keyword ;
ignore \n
keyword var
ignore \s
ident i
keyword ;
ignore \n
keyword begin
ignore \n\t
ident ret
ignore \s
keyword :=
ignore \s
number 1
keyword ;
ignore \n\t
ident i
ignore \s
keyword :=
ignore \s
number 2
keyword ;
ignore \n\t
keyword while
ignore \s
ident i
ignore \s
keyword <
ignore \s
ident arg
ignore \s
keyword do
ignore \n\t
keyword begin
ignore \n\t\t
keyword if
ignore \s
ident arg
ignore \s
keyword /
ignore \s
ident i
ignore \s
keyword *
ignore \s
ident i
ignore \s
keyword =
ignore \s
ident arg
ignore \s
keyword then
ignore \n\t\t
keyword begin
ignore \n\t\t\t
ident ret
ignore \s
keyword :=
ignore \s
number 0
keyword ;
ignore \n\t\t\t
ident i
ignore \s
keyword :=
ignore \s
ident arg
ignore \n\t\t
keyword end
keyword ;
ignore \n\t\t
ident i
ignore \s
keyword :=
ignore \s
ident i
ignore \s
keyword +
ignore \s
number 1
ignore \n\t
keyword end
ignore \n
keyword end
keyword ;
ignore \n\n
keyword procedure
ignore \s
ident primes
keyword ;
ignore \n
keyword begin
ignore \n\t
ident arg
ignore \s
keyword :=
ignore \s
number 2
keyword ;
ignore \n\t
keyword while
ignore \s
ident arg
ignore \s
keyword <
ignore \s
ident max
ignore \s
keyword do
ignore \n\t
keyword begin
ignore \n\t\t
keyword call
ignore \s
ident isprime
keyword ;
ignore \n\t\t
keyword if
ignore \s
ident ret
ignore \s
keyword =
ignore \s
number 1
ignore \s
keyword then
ignore \s
keyword !
ignore \s
ident arg
keyword ;
ignore \n\t\t
ident arg
ignore \s
keyword :=
ignore \s
ident arg
ignore \s
keyword +
ignore \s
number 1
ignore \n\t
keyword end
ignore \n
keyword end
keyword ;
ignore \n\n
keyword call
ignore \s
ident primes
ignore \n
keyword .
eof

AST:
Program
  Block
    Assign
      keyword const
      ident max
      keyword =
      number 100
      keyword ;
    Declare
      keyword var
      ident arg
      DeclareRest
        keyword ,
        ident ret
      keyword ;
    Procedure
      keyword procedure
      ident isprime
      keyword ;
      Block
        Declare
          keyword var
          ident i
          keyword ;
        Statement
          keyword begin
          Statement
            ident ret
            keyword :=
            Expression
              Term
                Factor
                  number 1
          StatementRest
            keyword ;
            Statement
              ident i
              keyword :=
              Expression
                Term
                  Factor
                    number 2
            StatementRest
              keyword ;
              Statement
                keyword while
                Condition
                  Expression
                    Term
                      Factor
                        ident i
                  RelationOp
                    keyword <
                  Expression
                    Term
                      Factor
                        ident arg
                keyword do
                Statement
                  keyword begin
                  Statement
                    keyword if
                    Condition
                      Expression
                        Term
                          Factor
                            ident arg
                          TermRest
                            Op2
                              keyword /
                            Factor
                              ident i
                            TermRest
                              Op2
                                keyword *
                              Factor
                                ident i
                      RelationOp
                        keyword =
                      Expression
                        Term
                          Factor
                            ident arg
                    keyword then
                    Statement
                      keyword begin
                      Statement
                        ident ret
                        keyword :=
                        Expression
                          Term
                            Factor
                              number 0
                      StatementRest
                        keyword ;
                        Statement
                          ident i
                          keyword :=
                          Expression
                            Term
                              Factor
                                ident arg
                      keyword end
                  StatementRest
                    keyword ;
                    Statement
                      ident i
                      keyword :=
                      Expression
                        Term
                          Factor
                            ident i
                        ExpressionRest
                          Op1
                            keyword +
                          Term
                            Factor
                              number 1
                  keyword end
          keyword end
      keyword ;
      Procedure
        keyword procedure
        ident primes
        keyword ;
        Block
          Statement
            keyword begin
            Statement
              ident arg
              keyword :=
              Expression
                Term
                  Factor
                    number 2
            StatementRest
              keyword ;
              Statement
                keyword while
                Condition
                  Expression
                    Term
                      Factor
                        ident arg
                  RelationOp
                    keyword <
                  Expression
                    Term
                      Factor
                        ident max
                keyword do
                Statement
                  keyword begin
                  Statement
                    keyword call
                    ident isprime
                  StatementRest
                    keyword ;
                    Statement
                      keyword if
                      Condition
                        Expression
                          Term
                            Factor
                              ident ret
                        RelationOp
                          keyword =
                        Expression
                          Term
                            Factor
                              number 1
                      keyword then
                      Statement
                        keyword !
                        Expression
                          Term
                            Factor
                              ident arg
                    StatementRest
                      keyword ;
                      Statement
                        ident arg
                        keyword :=
                        Expression
                          Term
                            Factor
                              ident arg
                          ExpressionRest
                            Op1
                              keyword +
                            Term
                              Factor
                                number 1
                  keyword end
            keyword end
        keyword ;
    Statement
      keyword call
      ident primes
  keyword .