Plot[(Nest[Power[sin(theta), #]&, 1, 800]), {theta,0,pi}]