JJ '95
 e%= -1000 
 4000
 w=e%*e%
 f=2*e%
 w=0 
 g=1000 
 g=f/w
 k=1-f
 k,e%,k
 e%,k,k
 k,k,e%
 u=k-e%
 u>0