anchor.diff:    ))
     ;("遅延評価テスト")
   
  +  ;;; 数学関数
     (defun math-funcs (quote
       (put "sin(1) = ")
       (putln (sin 1))
  
positive.code:   ))
    ;(test2)
  
    (setq c 0)
    (defun loop (quote           ; 関数の再帰呼び出しによるループ
      (putln $c)
      (setq c (+ $c 1))
      (if (lt $c 10)
  
negative.code:   ))
    ;(loop)
  
    ;;; 遅延評価テスト
    (defun "遅延評価テスト" (quote
      (defun check_value (quote
        (if (eq $a 3)
  