($s,$k)=glob<>;
print $s/$k