let must_close html tag =
  match String.lowercase tag with
    "br" | "area" | "base"| "basefont" | "col" | "frame" 
  | "hr" | "img" | "input" | "isindex" | "link" | "meta" | "param" ->
      not html
  | _ ->
      true