fixed test.ml