let of_string x = of_base (Base.of_string x)