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