<>;@L=glob<>;$K=<>;
$r=1e9;
for(1..100){
	$m=($l+$r)/2;
	$k=0;
	$k+=$_/$m|0for@L;
	${$k>=$K?l:r}=$m
}
print$m