readNextN ch n = readChan ch >>= \x -> (x:) <$> readNextN ch (n - 1)
readNextN ch n = readChan ch >>= \x -> (x:) <$> readNextN ch (n - 1)
readNextN ch n = readChan ch >>= \x -> (x:) <$> readNextN ch (n - 1)