khan: strip inner faces from +bear
== ::
:: ::
+$ avow (each (cask) goof) :: result type
- +$ bear $@(=desk [=desk =case]) :: local desk/case
+ +$ bear $@(desk [desk case]) :: local desk/case
+$ fyrd [=bear name=term =mark data=(cask)] :: run-thread request
-- ::khan
::
