(define (main args)
  (let* ([ha (read)]
         [wa (read)]
         [hb (read)]
         [wb (read)]
         [hc (read)]
         [wc (read)]
         [sa (cons 'A (cons ha wa))]
         [sb (cons 'B (cons hb wb))]
         [sc (cons 'C (cons hc wc))]
         [sl (list sa sb sc)])
    (for-each print
              (map car (sort sl
                             (lambda (x y)
                               (if (= (cadr x) (cadr y))
                                   (< (cddr x) (cddr y))
                                   (> (cadr x) (cadr y))))))))
  0)