#lang racket
(require srfi/41)
(stream-length
(stream-take-while (lambda (x)
(<= x 1000000))
(stream-scan + 0
(stream-iterate (lambda (x)
(+ x 180)) 3600))))
I2xhbmcgcmFja2V0CgoocmVxdWlyZSBzcmZpLzQxKQoKKHN0cmVhbS1sZW5ndGgKIChzdHJlYW0tdGFrZS13aGlsZSAobGFtYmRhICh4KQogICAgICAgICAgICAgICAgICAgICAgKDw9IHggMTAwMDAwMCkpCiAgICAgICAgICAgICAgICAgICAgKHN0cmVhbS1zY2FuICsgMAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoc3RyZWFtLWl0ZXJhdGUgKGxhbWJkYSAoeCkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKCsgeCAxODApKSAzNjAwKSkpKQ==