let check_date year month day =
  bool_of_sv (call ~fn:"Date::Calc::check_date"
                [sv_of_int year; sv_of_int month; sv_of_int day])