let date_to_days year month day =
  int_of_sv (call ~fn:"Date::Calc::Date_to_Days"
               [sv_of_int year; sv_of_int month; sv_of_int day])