let
of_string x = of_base (
Base
.of_string x)