a=1:999;write(a[-a[4^(0:4)%o%(1-8*a)]],1,1)