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] 40] [lrange i i [lweed $cum 1]]]; incr i}}; join $nig \n}