Evaluated proc EMBED {f e x y} { set l [split [pad $f] \n]; set a [split [pad $e] \n]; set j [expr $y-1]; set r [list]; for {set i 0} {$i < [llength $l]} {incr i} {set p [lindex $l $i]; if {$i eq $j} {set o ""; set b [lindex $a [expr $j+1-$y]]; append o [crange $p 0 [expr $x-2]]; append o $b; append o [crange $p [expr $x-1+[clength $b]] end]; if {[expr $j-$y] < [llength $a]} {incr j}; } else {set o $p; }; lappend r $o; }; return [join $r \n]; }