FSharpでmatch式をつかった直積の書き方