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