var m,n:word;begin repeat read(m,n);writeln((m*m div n+n+1)div 2)until 0>0end.