Write a pure, recursive function stream-iterate that takes two arguments, a function f and a value x, and returns an infinite stream consisting of repeated applications of f to x, i.e., the stream consisting of x, (f x), (f (f x)), .... Example: > (stream->list (stream-take (stream-iterate (lambda (x) (+ x 1)) 0) 10)) '( 0 1 2 3 4 5 6789)