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]] 50][^C]10[scinot [wget $url/$::blockchain($x)]]]}}; . [pad_line "[^B][^U]Blockchain Information" 56]\n[join $out \n]}