Corrected this:

File "src/batEnum.ml", line 519, characters 6-33:
Warning 10: this expression should have type unit.