1 (define (cube x) (* x x x))
2 (define (p x) (- (* 3 x) (* 4 (cube x))))
3 (define (sine angle)
4   (if (not (> (abs angle) 0.1))
5       angle
6       (p (sine (/ angle 3.0)))))
7 
8 (sine 12.15)
9 (p (sine 4.05))
10 (p (p (sine 1.35)))
11 (p (p (p (sine 0.45))))
12 (p (p (p (p (sine 0.15)))))
13 (p (p (p (p (p (sine 0.05))))))
14 
15 5 times
16 
17 number of steps is order of log(angle)
18 growth of space is order of log(angle) as well