let string_of_items (items : t_itm list) : string = String.concat "\n\n" (List.map string_of_item items)