let days_in_year year month =
  int_of_sv (call ~fn:"Date::Calc::Days_in_Year"
               [sv_of_int year; sv_of_int month])