my ($a,$b)=split(' ',get);say floor(--$a/2/$b)*$b