Evaluated set out [list]; map [pop [top [lreverse [log]] 5]] {x {lappend out [yturl2id [last $x]]}}; flatten $out