struct
  type refer = {file: string; ident: string; tO: string; ex: bool
  let compare = (fun x y ->
   let l1 = sc x.ident y.ident in if l1 = 0 then
   (let l2 = sc x.tO y.tO in if l2 = 0 then (if x.ex = y.ex then 0 else
      (if x.ex then 1 else -1)) else l2) else l1)
end;;

------------
let t = "<I><A HREF=\"ident\"><FONT COLOR=maroon>ident</FONT></A></I>" in
if Str.string_match ws t 0 then (Str.matched_group 1 t)^(Str.matched_group 2 t) else "poo";;

z (fun fn -> (print_string fn; print_string ", ")) "man";;