Evaluated proc autodox url { set id [last [regexp -inline {\d+_(\d+)_\d+_n.jpg} [wget $url]]]; fbid2name $id }