Evaluated proc hjoin {a b} { set a [seal $a]; set b [seal $b]; set x [+ [lline [strip_all $a]] [lline [strip_all $b]]]; set y [bigger [nlines $a] [nlines $b]]; embed [embed [canvas [+ $x 2] $y] $a 1 1]] $b [+ [lline [strip_all $a]] 2] 1 }