+ (evolution (untrusted :a evolution.untrusted))
+
+ ;; Local services.
+ :svc vampire
+ ((www krb ftp rsync wiki git bugs mail db i2p rawk vox www-cache)
+ :svc vampire)
+
+ ;; Internal services.
+ #+view/inside ((ntp) :svc ibanez.unsafe)
+ #+view/inside ((wpad ntp1 news lpr) :svc vampire.unsafe)
+
+ ;; Anonymity services.
+ (tor :svc #+view/inside vampire.unsafe
+ #-view/inside anon.dmz)
+
+ ;; Colocated hosts.
+ (colo :net colo)
+ (jump :net jump)
+ (fender (colo :a fender.colo)
+ (jump :a fender.jump))
+ (precision (colo :a precision.colo)
+ (jump :a precision.jump))
+ (telecaster (colo :a telecaster.colo)
+ (jump :a telecaster.jump))
+ (telecaster :alias tele)
+ (stratocaster (colo :a stratocaster.colo)
+ (jump :a stratocaster.jump))
+ (stratocaster :alias strat)
+ (jazz (colo :a jazz.colo)
+ (jump :a jazz.jump))
+
+ ;; Wired ethernet.
+ (unsafe :net unsafe)
+ (safe :net safe)
+ (untrusted :net untrusted)
+ (vampire (unsafe :a vampire.unsafe)
+ (dmz :a vampire.dmz)
+ (untrusted :a vampire.untrusted)
+ (iodine :a vampire.iodine))
+ (obsidian (safe :a obsidian.safe))
+ (ibanez (unsafe :a ibanez.unsafe)
+ (dmz :a ibanez.dmz))
+ (radius (unsafe :a radius.unsafe)
+ (dmz :a radius.dmz)
+ (untrusted :a radius.untrusted))
+ (roadstar (unsafe :a roadstar.unsafe)
+ (dmz :a roadstar.dmz))
+ (jem (unsafe :a jem.unsafe)
+ (dmz :a jem.dmz))
+ (artist (unsafe :a artist.unsafe)
+ (dmz :a artist.dmz))
+
+ ;; DHCP hosts.
+ (gibson :cname gibson.dhcp)
+ (lespaul :cname lespaul.dhcp)
+ (firebird :cname firebird.dhcp)
+ (marauder :cname marauder.dhcp)
+ (invader :cname invader.dhcp)
+
+ ;; Virtual network.
+ (virtual :net virtual)
+ (crybaby (virtual :a crybaby.virtual))
+ (terror (virtual :a terror.virtual))
+ (iodine :net iodine)
+
+ ;; ITS.
+ (its :net its)
+ (gw (its :a gw.its))
+ (mz (its :a mz.its))
+
+ ;; Delegations.
+ #+view/inside (dhcp :ns (radius.ns vampire.ns))
+ (io :ns ((ns.io :ip vampire))))
+
+;;;--------------------------------------------------------------------------
+;;; Other subsidiary zones.