Anonymous

alias urltok {
  var %x 8,%a ÿ,%pr0 http
  while $mid($replace($1=ÿ,&,=&,?,&),%x,1) > 
 {
    %c = $v1
    if %c isin :@/=&#ÿ {
      set -l $+(%,$replace(%a,ÿ,$count($1,@),1,us,0,@,:,$var(h*),1,po,0,pa,@,ho,/,di,&,at,=,$iif($var(at0*) > $var(v*),va0),%a,an),$and(0,%o),%x) $iif(%a < %,%a) $+ %o
      %o =
      %a = %c
      %c =
    }
    %o = %o $+ %c
    inc %x
  }
  return $(,$var($left($prop,2) $+ 0*,$iif($count($prop,tt,v,d),$iif($2 isnum 0-,$2),1)))