$n=<>;print$n%-2||abs$n/2-<>=~y/(//