alias obs {
  var %=,%l 1,%;
  while $asc($mid($1-,%l)) {
    %= = $calc($v1 /2.9+%=)
    inc %l
  }
  dec %l
  %: = $left($left(%=,$pos(%=,.)),$iif($mid(%l,-1),$v1,9))
  while $int(%:) {
    %t = $v1 % 16
    %; = $iif(%t > 9,$chr($calc(55+%t)),%t) $+ %;
    %: = %: / 16
  }
  return %;
}