{
    open Parser
}

rule token = parse
  (* Sauter les espaces et les tabulations  *)
  | [' ' '\t' '\n']             { token lexbuf }
  | '('                         { LPAREN }
  | ')'                         { RPAREN }
  | "->"                        { RARROW }
  | ['a'-'z']+['0'-'9']* as s   { VAR_NAME s }
  | ['A'-'Z']+['0'-'9']* as s   { TYPE_NAME s }
  | eof                         { EOF }