let of_string_unsafe s = String.copy s |! String.uppercase