(bind-func scdr:[Stream{!a}*,Stream{!a}*]* (lambda (a) (let ((delay (tref a 1))) (if (null? delay) null (delay)))))