22

for {set j 10} {$j >= -10} {incr j -1} {
        set path ""
        for {set i -10} {$i <= 10} {incr i} {
            append path $array($i,$j)
        }
        puts $path
    }