Evaluated proc killme {list blog} { map $list {x [first $blog] 1} }