let error_tag_char tag n = "Character "^(string_of_int n)^" ("^(String.make 1 tag.[n])^") is incorrect in tag '"^tag^"'."