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