alias parsebin {
 bset &t 1 $3-
var %x = $bfind(&t,1,$1), %y = $bfind(&t,1,$2)
return $bvar(&t,$+($calc(%x + $len($1)),-,$calc(%y -1))).text
}