(define (area a b h w) (let1 r (min (/ h a) (/ w b)) (* a b r r))) (define (main args) (let* ([a (read)] [b (read)] [h (read)] [w (read)]) (print (let ([a0 (area a b h w)] [a1 (area b a h w)]) (cond [(= a0 a1) 'Same] [(> a0 a1) 'Non-rotating] [else 'Rotating])))) 0)