open Array let n=read_int()let a,d=make n 0,iteri(fun i v->Printf.printf"%d%c"v"* ".[n-i])let rec(@)x y=let rec($)y z=y<0||a.(y)!=x&abs(a.(y)-x)!=z&y-1$z+1in y=n&()=d a||x