let
of_buffer_unsafe b =
Buffer
.contents b |!
String
.uppercase