(define (solve p q r a b c) (let ([gh (* p a)] [gl (+ 1 (* p (- a 1)))] [sh (* q (+ a b))] [sl (+ 1 (* q (+ a b -1)))] [ch (* r (+ a b c))] [cl (+ 1 (* r (+ a b c -1)))]) (let ([h (min gh sh ch)] [l (max gl sl cl)]) (cond [(< h l) -1] [else (format #f "~a ~a" l h)])))) (define (main args) (let* ([p (read)] [q (read)] [r (read)] [a (read)] [b (read)] [c (read)]) (print (solve p q r a b c))) 0)