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