binary {
  var %c 1
  while ($mid($1-,%c,1)) {
    var %p = $base($asc($v1),10,2)
    while ($len(%p) < 8)  var %p = 0 $+ %p
    var %a = %a $+ %p
    inc %c 
  }
  $iif($isid,return,echo -a) %a
}