{
open Lexing
open Parser
}

let int = "-"? ['0'-'9'] ['0'-'9']*
let digit = ['0'-'9']
let frac = '.' digit*
let exp = ['e' 'E'] ['-' '+']? digit+
let float = digit* frac? exp?

let white = [' ' '\t']+

rule read =
  parse
  | white { read lexbuf }
  | eof   { EOF }