Iterate2[a_,b_,n_]:=Module[{x,y,i},
x=a; y=b;
For[i=1,i<n,i=i+1,
x=F1[x,y];
y=F2[x,y];
Print["(",x," , ",y,")"];
];
];