alias percentage {
  var %c 1,%a,%o 1,%z .,%* return
  while $(,$ $+ %c) {
    $iif(!$remove($v1,0,1,2,3,4,5,6,7,8,9,.,-),inc %a $(,$ $+ %c),%* Invalid format)
    inc %c
  }
  while $(,$ $+ %o) {
    var %z %z $v1 - $calc(100* $v1 /%a) $+ %
    inc %o
  }
  %* $mid(%z,3)