(import scheme (chicken base))

(define less-than-5? (lambda (x)
  (fx< x 5)))

(print (less-than-5? 4))