(defun h->m (h m)
  (* 5 (+ (mod h 12)
          (/ m 60))))

(defun clock° (h m)
  (let ((° (abs (* 6 (- m (h->m h m))))))
    (min ° (- 360 °))))

(write (clock° 11 27))