let weeks_in_year year =
  int_of_sv (call ~fn:"Date::Calc::Weeks_in_Year" [sv_of_int year])