(defun run-time-functions ()
    (increase-day-counter)
    (increase-day-of-week-counter)
    (increase-day-of-month-counter)
    (year-check)
    (month-check)
    (week-check)
    (setf prev-time (get-universal-time))
    (setf tick-p nil))
(defun ticker (tick-p cur-time prev-time difference)
    (setf cur-time (get-universal-time))
    (setf difference (- cur-time prev-time))
    (if (>= difference 30)
            (setf tick-p t))
    (if (eql tick-p t)
            (run-time-functions)))
(defun loop-start ()
    (loop
             (ticker)))