add Tcl normalization

my first tcl code! @xantronix would be proud