Cyclone Scheme  0.9
#define cdar (   x)    (cdr(car(x)))