($_,$k)=glob<>;--$k;$z=$k%($-=1+chop).$z,$k/=$-while$_;print$z+0