Unnamed

alias percentage {
  unset $+(%,x.*)
  %x.1 = 1
  while %x.1 <= $0 {
    %x.2 = $iif($($+($,%x.1),2) isalnum && $($+($,%x.1),2) isnum 1-,$calc($($+($,%x.1),2) + %x.2),Invalid Format)   
    inc %x.1
  }
  if %x.2 isnum {
    %x.1 = $0
    while %x.1 >= 1 {
      %x.3 = $($+($,%x.1),2) - $calc(($($+($,%x.1),2) / %x.2) * 100) $+ % %x.3
      dec %x.1
    }
    return %x.3
  }
  else return %x.2
}