Using the mit-scheme interpreter (v10.1.5-1), I was expecting this loop to remove each element of \'ls\' except \'2\':
3 error> (define ls \'(1 2 0 5)) ;Value: