defrecord だとパターンマッチがうまくできないので、 definductive を定義した。 これでデータ型を core.match で (match x [`Just a] a) みたいな感じにマッチできるようになった。