clay: add new `%s` scry which gives the `tako` for a given beak
++ read-s
|= [yon=aeon pax=path]
^- (unit (unit cage))
- ?. ?=([?(%yaki %blob %hash %cage %open %late %base) * *] pax)
+ ?. ?=([?(%tako %yaki %blob %hash %cage %open %late %base) * *] pax)
`~
?- i.pax
+ %tako
+ =/ tak=(unit tako) (~(get by hit.dom) yon)
+ ?~ tak
+ ~
+ ``tako+[-:!>(*tako) u.tak]
+ ::
%yaki
=/ yak=(unit yaki) (~(get by hut.ran) (slav %uv i.t.pax))
?~ yak
