::  Kiln: Mount path to unix
::
::::  /hoon/mount/hood/gen
  ::
/?    310
::
::::
  ::
:-  %say
=>  |%
    +$  bath
      $@  desk
      (lest knot)
    --
|=  $:  [now=@da eny=@uvJ bec=beak]
        [=bath pot=$@(~ [v=@tas ~])]
        ~
    ==
=/  bem=beam
  ?@  bath  [bec(q bath) /]
  (need (de-beam `path`bath))
::
=/  =desk
  ?^  pot  v.pot
  ?^(s.bem (rear s.bem) q.bem)
::
[%kiln-mount (en-beam bem) desk]