工学社「はじめてのClojure」のサンプルソースです