let($)a p=let rec(@)x y=p(Obj.magic(+)48(x*y=0||x=a||y=a));x=0&a@y-y/y=p '
';x-1@y in a@a;;read_int()-1$print_char