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