set types [exec cut -d " " -f 5 messages.1 | cut -d {[} -f 1 | sort -u]
set winNum 1
set row 1
set col 1
foreach type $types {
  label .l_$winNum -text "Type: $type"
  grid .l_$winNum -row $row -column $col
  set winNum [expr {$winNum + 1}]
  set row [expr {$row + 1}]
}