($N,$K)=glob<>;$\+=!$---+!++$j*($N>($-+=$_,$%+=$_)&&$N-$%)*($K/$N-1|0)for(<>=~/./g)[($j=$K>=$N&&-$N)..$K%$N-1];print