(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))))