val precision : int ref
val pp : Creal.t -> unit