(define (make-worstcase one two three) (cond ((equal? order 'prefix) (list two one three)) ((equal? order 'infix) (list one two three)) ((equal? order 'postfix) (list one three two)) (else (error "Unknown ordering."))))