let to_format printer = (* TODO: BETTER INTERFACE *) fun fmt t -> Format.pp_print_string fmt (BatIO.to_string printer t)