proc move {path} {
set x 0
set y 0
for {set i 10} {$i >=0} {incr i -1} {
for {set j 10} {$j >=0} {incr j -1} {
set array($i,$j) " "
#puts "array($i,$j) = $array($i,$j)"
}
}
proc move {path} {
set x 0
set y 0
for {set i 10} {$i >=0} {incr i -1} {
for {set j 10} {$j >=0} {incr j -1} {
set array($i,$j) " "
#puts "array($i,$j) = $array($i,$j)"
}
}