cycle ties a finite ByteStream into a circular one, or
equivalently, the infinite repetition of the original ByteStream. For
an empty bytestring (like
return 17) it of course makes an
unproductive loop
>>> Q.putStrLn $ Q.take 7 $ Q.cycle "y\n"
y
y
y
y