むしろ、fst関数とかsnd関数はパターンで取り出すことをやった後にやりたいが・・・まぁ今回はStateモナドでfstやsnd使うだろうし、いっか・・・