15 Puzzle game in 10 lines of TCL code