m="M";
n="N";
for (i=0; i<100; i++){
	d1=Perpendicular("s3",m);SetHide(d1,true);
	p=Intersection(d1,"s3");SetHide(p,true);
	q=Symmetry(p,m);SetHide(q,true);
	r=Ray(q,n);SetHide(r,true);
	s=Intersection(r,"s2");SetHide(s,true);
	u=Vector(n,s);
	m=n;
	n=s;
	d1=Perpendicular("s2",m);SetHide(d1,true);
	p=Intersection(d1,"s2");SetHide(p,true);
	q=Symmetry(p,m);SetHide(q,true);
	r=Ray(q,n);SetHide(r,true);
	s=Intersection(r,"s1");SetHide(s,true);
	u=Vector(n,s);
	m=n;
	n=s;
	d1=Perpendicular("s1",m);SetHide(d1,true);
	p=Intersection(d1,"s1");SetHide(p,true);
	q=Symmetry(p,m);SetHide(q,true);
	r=Ray(q,n);SetHide(r,true);
	s=Intersection(r,"s3");SetHide(s,true);
	u=Vector(n,s);
	m=n;
	n=s;
}