let leap_year year =
  bool_of_sv (call ~fn:"Date::Calc::leap_year" [sv_of_int year])