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