In scheme / Racket.

Write a function stream-pair-with that takes a function f and a stream s, consisting of elements x1,2,..., and returns a new stream where each elementx of s has been paired with f x Examples: (stream->list (stream-pair-with (lambda (x) (+ x 1)) (stream 1 2 3 4))((1 . 2) (2 . 3) (3 . 4) (4 . 5)1)