let protect_translation3 f x y z =
  try Result (f x y z)
  with e -> protect_warning e