(let loop ((entries (feed-entries *feed*)))
  (let ((entry (car entries))
	(rest (cdr entries)))
    (format #t "got entry with name ~S~N" (entry-title entry))
    (if (not (null? rest))
	(loop rest))))