on ^*&:SNOTICE:*: {
  if *ORNEK:*/*G*  iswm $1- {
    %matris = 7658882:4288882:3883883:8844424:2993993:3883224:2888888:2424224:4223884:4222224
    var %p 1,%x 1
    while %p <= $calc($len($strip($hget(c,c1)))/10) {
      inc %x | var %i = 2 
      while %i < $hget(c,0).item { var %to =  $gettok($replace($hget(c,$+(c,%i)),$chr(44),$chr(64),@0,!),%x,$asc(!))
        set %gc $remove($instok(%gc,$len($+($strip($gettok(%to,1,3)),$strip($gettok(%to,-1,$asc(0))))),%i,58),$chr(58)) |  inc %i
      }
      var %gtlen 0 
      while %gtlen < $gettok($hget(c,c1),0,$chr(44)) { set %coco $instok(%coco,$replace($findtok(%matris,%gc,1,58),10,0),%gtlen,33) 
        inc %gtlen 
      }
      unset %gc 
      inc %p
    }
  GIRIS $remove(%coco,!)
    unset %charlf , %coco
    hfree c
  }
}
raw &006:*: {  if $str($chr(35),5) isin $2 {  inc %charlf | hadd -m c $+(c,%charlf) $2-  } }