00

while {$path != ""} {
        set char [string index $path 0]
        switch $char {
            e -
            E {
                incr x
                #puts "e--array($x,$y) = $array($x,$y)"
            }
            w -
            W {
                incr x -1
            }