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