open Ast
open Printf

let () = 
  let input = "SELECT aa, ab FROM b1" in
  let lexbuf = Lexing.from_string input in
  match Parser.main Lexer.read_token lexbuf with
  | Query(Select (Column("ab")::Column("aa")::[], [Table "b1"])) -> printf("ok")
  | _ -> printf("not ok")