#!/usr/local/bin/gosh
(use srfi-1)
(print
(if (and (> b a) (< b (* a b)))
 b
 a)
(cond ((= a 4) 6)
      ((= b 4) (+ 6 7 a))
      (else 25))
(+ 2 (if (> b a) b a))
(* (cond ((> a b) a)
         ((< a b) b)
         (else -1))
(+ a 1))