let str (set:Biblio.set) =
    String.concat "\n\n" (List.map format_entry set)