primitive.clj は使う。これがないとやってられない〜〜
>>= 、直した
map-m と for-m 追加〜