use strict;
use warnings;

# my $line = "13 13";
my $line = <>;
chomp $line;

my($S, $F) = split / /, $line;

print int ($S / $F) + 1 , "\n";