foreach m {file edit view} { puts $m}
fileeditview
set aa [list ab te se]
foreach g $aa {
puts $g
}
ab
te
se