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