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