テンプレート:Haskell chapter/Fun with Types