!:
::  /=main=/toy/veer/hoon
::
=>  .(- `[who=@p how=path]`-)
|=  [est=time *]
|=  [nam=@tas ~]
=+  tip=(end 3 1 nam)
=+  pax=[(scot %p who) %arvo (scot %da est) nam %hoon ~]
[[[%xx [%veer ?:(=('z' tip) %$ tip) pax (,@ .^(%cx pax))]] ~] ~]