ipl/packs/euler/t3.eul


1
2
3
4
5
6
7
8

begin new p; new n; new f;
 n<-0;
 p<-'begin n<-n+1; if n < 100 then p else p<-f(n) end';
 f<-'formal x; x';
 out p;
 out p
end