Evaluated proc aembed {f e x y} { int y 0; set lines [split $f \n]; foreach line $lines { for {set x 0} {$x < [string length $line]} {incr x} { }; incr y } }