erewr

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)"
        }
    }