anchor.diff:    ))
     ;(loop)
   
  +  ;;; 遅延評価テスト
     (defun "遅延評価テスト" (quote
       (defun check_value (quote
         (if (eq $a 3)
  
positive.code: ; Test script for supoo
  (
    (defun test1 (quote
      (putln "")               ; 空文字列
      (setq title              ; 途中改行
  
negative.code:     (setq i 0)
      ; while 文(関数)
      (while (quote (lt $i 10)) (quote
        (put $i)
        (put " ")
        (setq i (+ $i 1))
      ))
      (putln "")
    ))
    (looptest)
    
    ;(setq flag1 $true)
    ;(setq flag2 $false)
    ;(putln $flag1)
    ;(putln $flag2)
  
    ;(setq foo (int 1.23))
    ;(dump $foo)
  
  )
  
  