Unnamed

alias percentage {
  unset $+(%,x.*)
  var %x.1 = 1
  while (%x.1 <= $0) {
    var %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) {
    var %x.1 = $0
    while (%x.1 >= 1) {
      var %x.3 = $($+($,%x.1),2) - $calc(($($+($,%x.1),2) / %x.2) * 100) $+ % %x.3
      dec %x.1
    }
    return %x.3
  }
  else return %x.2
}