See if you have any chance of programming this:

# Create 12 procedures to build your module's
# user interface.
for {set i 0} {incr i} {$i < 12} {
   proc MineBuildGUI {
        global Mine
        puts 'All mine!'
   }
}

To really create havoc, try typing this at the command line:

rm -rf *