anchor.diff:    ))
     ;(test2)
   
  +  ;;; 関数の再帰呼び出しによるループ
     (setq c 0)
  -  (defun loop (quote           ; 関数の再帰呼び出しによるループ
  +  (defun loop (quote
       (putln $c)
       (setq c (+ $c 1))
       (if (lt $c 10)
  
positive.code:   ))
    ;(test1)
  
    (defun test2 (quote         ; 組み込み関数の別名
      (putln (add 1 2))
      (putln (+ 1 2))
      (putln (>= 1 2))
  
negative.code: ;;;; Test script for supoo
  (
    ;;; 基本関数
    (defun test1 (quote
      (putln "")               ; 空文字列
      (setq title              ; 途中改行
  