dbopen /usr/local/gifa/macro/att/1let_3let code2
set p =  'db/primary'
open $p
set l = <$p
while (!eof($p))
  if (!exist('c[' // $l // ']')) set c[$l] = 0
  set c[$l] = (%+1)
  set l = <$p
endwhile
print 'Statistic on the current Primary sequence'
foreach i in code2
   if (!exist('c[' // $i // ']')) then
     print (head($code2[$i]); ': 0')
   else
     print (head($code2[$i]); ':'; $c[$i])
   endif
endfor
close $p
dbclose code2
