Scheme 48 List functions: cons and eq? eqv?
Scheme 48 List test: for cons crd and car