(+ 1 2 3)
(- 2 1 1)
(* 1 2 3)
(/ 1 3)
(= 2 2)
(= 2 1)
(>= 1 1)
(> 1 1)
(<= 1 1)
(< 1 1)
(def hoge 1)
hoge
(defn add (x y) (+ x y))
(add 1 2)
(defn fuga (x y) (let (z (+ x y)) (+ z z)))
(defn foo (x) (let (w (window)) (if (= x 1) (send w alert "x=1") (send w alert "x!=1"))))
(let (w (window)) (do (send w alert "first") (send w alert "second")))
(def c (circle (point 100 100) 200 (color 100 100 100)))
(draw c)
(def r (rect (point 100 100) (size 100 100) (color 0 255 0)))
(draw r)
(def l (line (point 100 100) (point 1000 1000)))
(draw l)
(def t (text "hoge" (point 100 100) (color 50 50 50)))
(draw t)
(clear)