alias ordecode {
  bset -t &a 1 $1
  var %a 1
  while ($bvar(&a,%a,1) != $!) {
    bset &b %a $calc($v1 -30-%a)
    inc %a
  }
  return $bvar(&b,1-).text
}
alias orencode {
  bset -t &a 1 $1
  var %a 1
  while ($bvar(&a,%a,1) != $!) {
    bset &b %a $calc(30+%a +$v1)
    inc %a
  }
  return $bvar(&b,1-).text
}