my($s,$f)=split/ /,<>;print$s/$f+1 ."\n";