$n=<>;print~~grep$n>=($.*=$_),unpack"C*"," %)+/"