!:
::  /=main=/toy/cat/hoon
::
|=  *
|=  [del=path dev=path ~]
:_  ~
:_  ~
^-  gift
=+  [hel=(lore ((hard ,@) .^(%cx del))) hev=(lore ((hard ,@) .^(%cx dev)))]
=+  dis=(loss hel hev)
=+  puc=(lusk hel hev dis)
=+  rev=(lurk hel puc)
=+  ver=(lurk hev (berk puc))
?>  &(=(rev hev) =(ver hel))
[%la >puc<]