Print Ethereum addresses at the correct length
::
++ num (d-co:co 1)
++ pon (cury scow %p)
- ++ adr |=(a=@ ['0' 'x' ((x-co:co 20) a)])
+ ++ adr |=(a=@ ['0' 'x' ((x-co:co (mul 2 20)) a)])
++ spo |=(h=? ?:(h "escaped to" "detached from"))
++ req |=(r=(unit @p) ?~(r "canceled" (pon u.r)))
--
