let
real r =
Real
(
Hstring
.make r)