#!/usr/local/bin/gosh
(use srfi-1)
(print
(if (and (> b a) (< b (* a b)))
b
a)
)