(define consStream (lambda (item genf ) (cons item genf ) ) ); (define head (lambda (stream ) (car stream ) ) ); (define tail (lambda (stream ) ((cdr stream ) ) ) ); (define emptys (lambda (stream ) (null stream ) ) ); (define emptyStream nil ); (define intBdStream (lambda ( low high) (cond ((eq low high) emptyStream ) ( t (consStream low (lambda() (intBdStream (+ 1 low) high)) ) ) ) ) ); (define shs (lambda(s) (cond ( (emptys s) (quote eos) ) (t (cons (head s) (shs (tail s))))))); intBdStream; (define pippo (intBdStream 1 4)); (shs pippo); #