Haskellってループないんじゃなかったけ
再帰なしでどうやって組むんじゃ