define-datatype の実装例見つけた

http://www.cs.indiana.edu/eopl/code/interps/define-datatype.scm
確認してみる方向。