(push (format "%02d:%02d" h m) end-options -1)))
(for (h 1 8) (dolist (m '(0 30))
(push (format "%02d:%02d" h m) limit-options -1)))
(push (format "%02d:%02d" h m) end-options -1)))
(for (h 1 8) (dolist (m '(0 30))
(push (format "%02d:%02d" h m) limit-options -1)))