|%  ++  mean  |=(a=tang (mean-wrap a |.(!!)))
    ++  mean-wrap  
  |*  [a=tang _|?(**)]
  ^+  (+<+)
  =>  .(a `tang`a)
  ?~  a  (+<+)
  ~>  %mean.|.(i.a)
  $(a t.a)
--