(def H (derive (make-hierarchy) ::linux ::unix))

(defmulti home identity :hierarchy H)
(defmethod home ::unix [os] "/home")

(home ::unix)
;=> "/home"

(home ::linux)
;=> "/home"