hash を使って CL なしでやってみたよ。
http://paste.lisp.org/display/79690