/-  sole
[sole]
:-  %get  |=  {^ {a+tape $~} $~}
%+  sole-at  (scan a auri:epur)
|=  hit+httr
(sole-so %httr hit)