let string_of_odn ?opened_modules odn = let buff = Buffer.create 13 in let fmt = formatter_of_buffer buff in pp_odn ?opened_modules fmt odn; pp_print_flush fmt (); Buffer.contents buff