(define (parent item) ... get the parent of item somehow ...) (define (center-of accessor) (lambda (item) (calculate-center-of (accessor item))))