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