(define (System.out.println x)
  (begin
    (write x)
    (newline)
  )
)

(let (
      (NameA  (read))
      (pointA (read))
      (foo    (read))
      (NameB  (read))
      (pointB (read))
      (bar    (read))
     )
  (cond
    ((> pointA pointB) (System.out.println NameA))
    ((< pointA pointB) (System.out.println NameB))
    (else              (System.out.println -1))
  )
)