real(8)::x,y
  read *,x,y
  print '(i0)',CEILING(2.0*sqrt(x*x+y*y+EPSILON(x))*(1+EPSILON(x)))
end