$a=$_=<>;0while$a%--$_;print