08/03/02 19:14:13
>>144
URLﾘﾝｸ(practical-scheme.net)
＞(define-page (said)
＞ (self-chain "self"
＞ (form/cont/ (entry-lambda (:keyword say)
＞ (a/cont/ (cut p/ "You say:" say) "click here"))
＞ (readln/ say)
＞ (submit/))))
＞
＞Arc: 23ノード：15の葉/字句 + 8内部ノード
＞Kahua: 27ノード：17の葉/字句 + 10内部ノード