sig val print : (unit -> unit) Pervasives.ref end