let get_env ()= 
    let pos=Parsing.symbol_start_pos() in
    (pos.Lexing.pos_fname,pos.Lexing.pos_lnum)