> 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;

> film:=proc( d )
> local i, j, n, F;
> n:= nops(d);
> F:= array(1..n);
> for i from 1 to n do
> F[i] := polygonplot(d[i]);
> od;
> convert(F, list);
> end:
>