let print fmt s = Format.fprintf fmt "%s" (to_string s)