Traverse record declarations and generate typed field accessors

Makefile

@@ -1,7 +1,10 @@
 OCAMLC ?= ocamlc
 
 .PHONY: all test clean
-all: fieldglass.cma
+all: fieldglass.cma rewrite
+
+rewrite: rewrite.ml
+	$(OCAMLC) -I +compiler-libs ocamlcommon.cma $< -o $@
 
 fieldglass.cmi: fieldglass.mli
 	$(OCAMLC) -c $<
@@ -15,6 +18,8 @@ fieldglass.cma: fieldglass.cmo
 test: all
 	$(OCAMLC) fieldglass.cma runtime.ml -o runtime.byte
 	./runtime.byte
+	$(OCAMLC) -ppx ./rewrite fieldglass.cma record.ml -o record.byte
+	./record.byte
 
 clean:
 	rm -f *.cmi *.cmo *.cma *.byte rewrite