Evaluated proc blockchain {} {set cum [split [blockchain_] :\n]; set nig [list]; set i 0; map [lweed $cum 0] {x {lappend nig [. [pad_line [. [^B][^U]$x[^U][^B]] 40] [lindex [lweed $cum 1] $i]]; incr i}}; join $nig \n}