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