sub powa2 
    {
    ;      local %_ = @_
    ;      keys  %_ = pop
    ;      $_ =  %_
    ;      split '\/'
    ;      pop
    }