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