alias bugw {
if ($hget(Ga)) hfree Ga
var %a 4 ,%b . ; ? /
while (%a) { hadd -m Ga $+(10,$token(%b,%a,32),10) | dec %a }
echo -a $hget(Ga,0).item - $hget(Ga,$hget(Ga,0).item).item - $hfind(Ga,/\d(\.|;|\?|\/)\d/,0,r) - $regml(0) - $regml(1)
echo -a $hget(Ga,0).item - $hget(Ga,$hget(Ga,0).item).item - $hfind(Ga,/\d(\.|;|\?|\/)\d/,1,r) - $regml(0) - $regml(1)
echo -a $hget(Ga,0).item - $hget(Ga,$hget(Ga,0).item).item - $hfind(Ga,/\d(\.|;|\?|\/)\d/,2,r) - $regml(0) - $regml(1)
echo -a $hget(Ga,0).item - $hget(Ga,$hget(Ga,0).item).item - $hfind(Ga,/\d(\.|;|\?|\/)\d/,3,r) - $regml(0) - $regml(1)
echo -a $hget(Ga,0).item - $hget(Ga,$hget(Ga,0).item).item - $hfind(Ga,/\d(\.|;|\?|\/)\d/,4,r) - $regml(0) - $regml(1)
}