alias bugw {
if ($hget(Ga)) hfree Ga
var %a 10
while (%a) { hadd -sm Ga $+($r(1,9),%a,$iif($r(0,1),.,;),$(1,9),%a) $+(Data,%a) | dec %a }
var -s %a $hfind(Ga,/\d+(\.|;)\d+/,0,r)
while (%a) {
var -s %b = $hfind(Ga,/\d+(\.|;)\d+/,%a,r)
echo -a $regml(1)
dec %a
}
}