第12回オフラインリアルタイムどう書くの問題「サイコロを転がす」をHaskellで解く ref: http://qiita.com/uehaj/items/5f46b012f13e1d3cee55