let check_tag tag = for i = 0 to (String.length tag) - 1 do match tag.[i] with 'a' .. 'z' | 'A' .. 'Z' -> () | '_' | '-' | '0' .. '9' when i > 0 -> () | _ -> raise (Tag_error i) done