Refactoring in faustexp.ml.