+ (format t "~& pi-stream accelerate-sequence:~& ~S"
+ (pipe-values
+ (accelerated-sequence #'euler-transform (pi-stream)) 10)))
+ (format t "~&ln2-stream:~& ~S"
+ (pipe-values (ln2-stream) 10))
+ (format t "~& ln2-stream euler-transform:~& ~S"
+ (pipe-values (euler-transform (ln2-stream)) 10))
+ (format t "~& ln2-stream accelerate-sequence:~& ~S"