This must be done in Scheme/Racket

Write a function stream-pair-with that takes a function f and a stream s, consisting of elements x₁,x₂,x₁,x₂,, and returns a new stream where each element x_i of s has been paired with fx_i .

Example:

(stream->list (stream-pair-with (lambda (x) (+ x 1)) (stream 1 2 3 4))) => ((1 . 2) (2 . 3) (3 . 4) (4 . 5))

Problem 3: (stream-pair-with f s) (10 points) Write a function stream-pair-with that takes a function f and a stream s, consisting of elements x1, x2, ..., and returns a new stream where each element x; 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))