peek x . extend (peek y) = peek y
Streams.peek stream >> Streams.read stream === Streams.read stream
peek (replicate 10 ()) ptrfor reading 10 elements from memory starting at ptr.
>>> Stream.parse ((,) <$> Parser.peek <*> Parser.satisfy (> 0)) $ Stream.fromList [1] Right (1,1)
peek = lookAhead (satisfy True)