ところで、無限リストをIOに変換したいときってどうするの?
[a] -> IO a