iter := proc(f,s,n)
   local d,i;
   d := array(0..n);
   d[0] := s;
   for i from 1 to n do
     d[i] := map(f,d[i-1]);
   od;
   convert(d,list);
end: