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