F#でMapを書いたりしてみました。