stat = Hash.new
for line in ARGF
  next unless /^I[A-Z]{3}[0-9]{0,2}([A-Z]{4})/ === line
  cccc = $1
  w = line.chomp.split(/,/)
  ctr = w[6]
  stid = w.last.split(/;/)[2].split(/=/).last
  key = "#{cccc},#{ctr}"
  stat[key] = Hash.new(0) unless stat.include?(key)
  stat[key][stid] += 1
end
for key in stat.keys.sort
  puts [key, ',', stat[key].keys.sort.join(' '), "\r\n"].join
end