a=2:541;b=a[1-a%o%a];write(b[diff(b)],1,1)