alias obs {

  %= = 1

  while $asc($mid($1-,%=)) {

    var %$ $calc($v1 /2.9+%$),%% %= % 10

    inc %=

  }

  if 10 \\ %$ return $base($left(%$,$iif(%%,%%) 5),10,16,0,0)