Cyclone Scheme  0.9
#define caar (   x)    (car(car(x)))