|
(print "Please enter the first number: ")
|
|
(set 'A (int (read-line)))
|
|
(print "Please enter the second number: ")
|
|
(set 'B (int (read-line)))
|
|
(println
|
|
"The first one is "
|
|
(cond
|
|
((> A B) "greater than")
|
|
((= A B) "equal to")
|
|
(true "less than"))
|
|
" the second.")
|