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