a,*,c=*$<;$><<a*~-$.+(c[/ +/]+$0*9)[0..a=~/T/]