Evaluated proc blockchain {} {set url {https://blockchain.info/q}; set out [list]; map [array names blockchain] {x {lappend $out [. [pad_line [. [^B][^U]$x[^U][^B]] 40][^C]10[scinot [wget $url/$::blockchain($x)]]]}}; join $out \n}