0. #lang racket
1. (define fibs (stream-cons 1 (stream-cons 1 (map + fibs (rest fibs)))))
2. (sequence->list (take 15 fibs))

=>

take: contract violation

expected: exact-nonnegative-integer?

given: #<stream>

argument position: 2nd

other arguments...:

15