(define comment?
  (tag= '*COMMENT*))

(define (burger-comment? x)
  (and (comment? x)
       (find-first x (lambda (y)
                       (let ((n (node y)))
                         (and (string? n)
                              (string-contains n "BURGER")))))))

(define (burger-der-woche)
  (and-let* ((base-url "https://www.facebook.com/DiefetteKuh")
             (document-html (with-input-from-request base-url #f html->sxml))
             (document (sxml-zipper document-html))
             (fragment-comment (find-first document burger-comment?))
             (fragment-html (call-with-input-string (text fragment-comment) html->sxml))
             (fragment (sxml-zipper fragment-html))
             (description-tree (find-first fragment (has-class "userContent")))
             (description-paragraph (find-first description-tree (tag= 'p))))
    (text description-paragraph)))