caaaar

(caaaar pair)

Description:

The car of the car of the car of the car (i.e. (car (car (car (car val)))))

Arguments:

obj -- a scheme pair

Returns: a scheme object

Examples: