Evaluated proc lprepend {mylist what} {set cum [lreverse $mylist]; lreverse [lappend $cum $what]}