#lang racket
(define (compare-two-ints a b)
(define compared
(cond ((> a b) "is greated than")
((= a b) "equals")
((< a b) "is lesser than")))
(format "~a ~a ~a" a compared b))
(compare-two-ints (read) (read))