;; Convert DM->second
(defun dm-to-sec (x)
  (* (/ x 100.0) 60.0))
;; Convert DM->minutes
(defun dm-to-min (x)
  (/ x 100.0))
;; Convert second->minutes
(defun sec-to-min (x)
  (/ x 60.0))
;; second->minutes convert with m:s.# style format
(defun sec-to-min-formatted (x)
  (let ((ms (multiple-value-list (truncate x 60.0))))
    (format t "~a : ~a " (car ms) (cadr ms))))
;; DM->minutes convert with m:s.# style format
(defun dm-to-min-formatted (x)
  (sec-to-min-formatted (dm-to-sec x)))