import Control.Monad.Trans (liftIO)
import Data.Iteratee.Iteratee
import qualified Data.Iteratee.ListLike as I

main = enumPure1Chunk [1..10] myIter >>= run

myIter :: Iteratee [Int] IO ()
myIter = do
   I.last
   x <- I.peek
   liftIO $ print x