res)
((and (pair? (car sxml)) (eq? (caar sxml) 'p))
(getp (cdr sxml) (- count 1) (cons (car sxml) res)))
- ((and (pair? (car sxml)) (eq? (caar sxml) 'a))
- (getp (cdr sxml) count (cons (car sxml) res)))
(else
- (getp (cdr sxml) count res))))
+ (getp (cdr sxml) count (cons (car sxml) res)))))
(reverse (getp sxml count '())))
(define (post-summary post)