let check_time hour min sec =
  bool_of_sv (call ~fn:"Date::Calc::check_time"
                [sv_of_int hour; sv_of_int min; sv_of_int sec])