| None -> make_attributes (List.tl l1) tl
| Some s ->
let p,n = List.hd l1 in
- prerr_endline (Printf.sprintf "make_attributes %s %s" n s);
+(* prerr_endline (Printf.sprintf "make_attributes %s %s" n s); *)
hd := None;
(p,n,s) :: make_attributes (List.tl l1) tl)