(defprotocol IAlias
  (unalias [_]))

(deftype VersionAlias [version tag]
  IAlias
  (unalias [this] version))

(defn version-alias [version tag] (VersionAlias. version tag))
(defn version-alias? [x] (instance? VersionAlias x))