Haskellの関数を実装して無限リストを学習したの巻