psize 511;mon 1; infpsize nx ny
sout ;inp k

//+graymax"/2 =c1
wloop bild x y

+x*y/k=xy1
+xy1" sin=xy
"+xy+1=temp
+graymax"/2*temp=g;
"+g'=(x,y,1)

+k+3=k2
+x*y/k2=xy2
+xy2" sin=xy02
"+xy02+1=temp2
+graymax"/2*temp2=g2;
"+g2'=(x,y,2)

+k2+3=k3
+x*y/k3=xy3
+xy3" sin=xy03
"+xy03+1=temp3
+graymax"/2*temp3=g3;
"+g3'=(x,y,3)

+k3+300=k4
+x*y/k4=xy4
+xy4" sin=xy04
"+xy04+1=temp4
+graymax"/2*temp4=g4;
"+g4'=(x,y,4)


//sout ^x=^;out x
//sout ^y=^;out y
//sout ^xy1=^;out xy1;
//sout ^xy=^;fout xy;
//sout ^temp=^;fout temp;
//sout ^g=^;fout g;plf

end bild