proc rotateImage {a} {
    array set retVal {}
    set retList {}

    for {set i 0} {$i < [llength [split [lindex $a 0] " "]]} {incr i} {
        set row [split [lindex [lreverse $a] $i]]
        set j 0
        foreach val $row {
            lappend retVal($j) $val
            incr j
        }
    }

    for {set i 0} { $i < [array size retVal]} { incr i} {
        lappend retList $retVal($i)
    }
    return $retList
}