Haskellでよくやるやつ