PolarPlot[(Nest[Power[sin(x), #]&, 1, 100])] from 0 to pi