Cplot[l_]:=Module[{},
        Plot[l,{x,-2,2}, PlotStyle->{
          RGBColor[0,0,0],
          RGBColor[1,0,0],
          RGBColor[0,0,1],
          RGBColor[0,1,0],
          RGBColor[1,0,1]},
          PlotRange->{-2,2}, AspectRatio->Automatic
          ]
          ];

Cplotr[l_,r_]:=Module[{},
        Plot[l, r, PlotStyle->{
          RGBColor[0,0,0],
          RGBColor[1,0,0],
          RGBColor[0,1,0],
          RGBColor[0,0,1],
          RGBColor[1,0,1]},
          PlotRange->Delete[r,1], AspectRatio->Automatic
          ]
          ];

Iter[n_]:=Module[{a,i},
          a=x;
          For[i=1, i<= n, i=i+1,
          a=f[a]
          ];
          a
          ];

Iterl[l_]:=Module[{list,listo,i,n,a},
           list=l;
           listo={};
           i=Length[list];
           While[i>0,
                 n=First[list];
                 a=Iter[n];
                 listo=Append[listo,a];
                 list=Delete[list,1];
                 i=i-1;
           ];
           listo
           ];

Iplot[l_]:=Cplot[Prepend[Iterl[l],x]];
Iplotr[l_,r_]:=Cplotr[Prepend[Iterl[l],x],r];

Iplotc[n_,a_,s_]:=Module[{i,g,h,k,u,v,w},
                u[x_]:=x^2+a;
                g[x_]:=Iterf[n,u];
                v[x_]:=x^2+a-s;
                h[x_]:=Iterf[n,v];
                w[x_]:=x^2+a-2s;
                k[x_]:=Iterf[n,w];
		Cplot[{x,g[x],h[x],k[x]}]
		 ];

Iterf[n_,f_]:=Module[{a,i},
          a=x;
          For[i=1, i<= n, i=i+1,
          a=f[a]
          ];
          a
          ];