w,d=$<.map &:to_i
d.downto(2){|i|w-=w./i*i};p w