Simple tcl scritp that prints info for streams pasted on irc