implement standard library : (scheme cxr)