(lambda (feed-ref update-time homepage entries)
  (let ([feed
         `(feed
           ((xmlns "http://www.w3.org/2005/Atom"))
           (title "λ.sorrel.dev")
           (link ((rel "self")
                  (href ,feed-ref)))
           (updated  ,update-time)
           (author
            (name "sorrel"))
           (id ,homepage))])
    
     
    (for-each
     (lambda (entry)
       (set! feed
               (append feed
                       `((entry
                          (title ,(first entry))
                          (link ((href ,(second entry))))
                          (id ,(second entry))
                          (content ((src ,(second entry))
                                    (type "text/html")))
                          (summary ,(third entry))
                          (published ,(fourth entry))
                          ,(if (eq? 5 (length entry))
                               `(updated ,(fifth entry))
                               '(updated "")))))))
     entries)
        feed))