raw 006:*: {
if !%xw { set %xw 1 }
if %xw {
hadd -m c $+(c,%xw) $2-
inc %xw
}
if %xw == 10 {
var %char = 32 22 17 34 30 28 29 17 16 14
var %q = 2
while %q <= 8 {
inc %cx3 $len($gettok($replace($gettok($hget(c,$+(c,%q)),-3,44),$chr(3),$chr(32)),-1,48))
inc %q
}
var %y = 2
while %y <= 8 {
inc %cx2 $len($gettok($replace($gettok($hget(c,$+(c,%y)),-2,44),$chr(3),$chr(32)),-1,48))
inc %y
}
var %k = 2
while %k <= 8 {
inc %cx1 $len($gettok($replace($gettok( $hget(c,$+(c,%k)),-1,44),$chr(3),$chr(32)),-1,32))
inc %k
}
GIRIS $+($findtok(%char,%cx3,1,32),$findtok(%char,%cx2,1,32),$findtok(%char,%cx1,1,32))
unset %cx*
unset %xw
}
}