This is, I think, a dupe of Plotting several functionsPlotting several functions, except that that thread displayed only the contours.
An approach simpler than the other posted answers proceeds like so:
Plot3D[Nest[Sin, x, Round[k]], {x, -π, π}, {k, 1, 10},
MeshFunctions -> {#2 &}, Mesh -> 10]