{
  open Firstordercommon
  exception EndInput
}

(* Put your definitions here *)

(* Do not change the function below *)
{
  let lextest s =
    let rec lbuf = Lexing.from_string s
    and lextest_aux () =
      try
        let res = firstorder_tok lbuf
        in
          res :: lextest_aux ()
      with EndInput ->
        []
  in
    lextest_aux ()
}