Compiler for (op expr expr) written in Scheme