alias inverse { var %x = $len($1-),%z 
  while (%x >= 1) { 
    %z = $+(%z,$mid($replace($1-,$chr(32),$chr(160)),%x,1)) 
    dec %x 
  } 
  return %z 
}