(use (only http-client with-input-from-request)
     (only html-parser html->sxml)
     sxpath)

(define (burger-der-woche)
  (let* ((base-url "https://www.facebook.com/DiefetteKuh")
         (document-html (with-input-from-request base-url #f html->sxml))
         (fragment-sxpath (sxpath "//code[contains(comment(), 'BURGER')]"))
         (fragment-tree (fragment-sxpath document-html))
         (fragment-comment (car (alist-ref '*COMMENT* (cdar fragment-tree))))
         (fragment (call-with-input-string fragment-comment html->sxml))
         (description-sxpath (sxpath "//div[contains(@class, 'userContent')]/p"))
         (description-tree (description-sxpath fragment))
         (description-paragraph (car description-tree)))
    (string-concatenate (filter string? description-paragraph))))

(print (burger-der-woche))