(define (present-recipe r) (div 'class "recipe" (h3 (title-of-recipe r)) (b "Ingredients") (ul (map (compose li present-ingredient) (ingredient-list-of-recipe r))) (b "Procedure:") (ol(map li (steps-of-recipe r)))))