#!/usr/bin/tclsh
set fp [open "netlist.spi" r]
set file_data [read $fp]
close $fp

set t [exec grep -c {^[MmTtXx]} $file_data]
set r [exec grep -c {^[Rr]} $file_data]
set l [exec grep -c {^[Ll]} $file_data]
set c [exec grep -c {^[Cc]} $file_data]
set v [exec grep -c {^[Vv]} $file_data]

set link [exec grep {^[^*]} $file_data]

puts stdout "$link $t $r $l $c $v"