> Digits:=20:
> h:= (x,y)-> (0.9925*x+0.0125*y,0.0075*x+0.9875*y):
> v:=(400,600): for n from 0 to 10 do [(h@@n)(v)]; od:
>  for n from 500 to 510 do [(h@@n)(v)]; od:
> for n from 900 to 905 do [(h@@n)(v)]; od:
> (h@@8000)(v):
> w:=(400,600):for n from 1000 to 1010 do [(h@@n)(w)]; od:
> (h@@50000)(w):
> h(%):
> 
>