#!/usr/local/bin/gosh
(use srfi-1)
(print 
10 ;10
(+ 5 3 4) ;12
(- 9 1) ;8
(/ 6 2) ;3
(+ (* 2 4) (- 4 6)) ;6
(define a 3) ; aを3と定義
(define b (+ a 1)) ;bを(+ a 1)と定義
(+ a b (* a b))
(= a b)
(if (and (> b a) (< b (* a b)))
a
b)
(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))

(define (sq x) (* x x))
(+ (sq 4) (sq 5) )
)