anchor.diff:    ))
     ;(test2)
   
  +  ;;; 関数の再帰呼び出しによるループ
     (setq c 0)
  -  (defun loop (quote           ; 関数の再帰呼び出しによるループ
  +  (defun loop (quote
       (putln $c)
       (setq c (+ $c 1))
       (if (lt $c 10)
  
positive.code: ; Test script for supoo
  (
    (defun test1 (quote
      (putln "")               ; 空文字列
      (setq title              ; 途中改行
  
negative.code:   ))
    ;("遅延評価テスト")
  
    ;;; 数学関数
    (defun math-funcs (quote
      (put "sin(1) = ")
      (putln (sin 1))
  