Evaluated proc oeuoeu {} {set out ""; for {set i 0} {$i < 7} {incr i} {append out [oeu][oeu][oeu][oeu][oeu][oeu][oeu]\n};. $out }