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