procedure to get the last element of a list in scheme