POO syntax error

Edit : c'est bon, j'ai trouvé tout seul le problème.

j'ai voulu m'initier au côté objet d'ocaml, seulement, sur un code basique, je me retrouve avec une syntax error :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

class point (x_init,y_init) = object val mutable x = x_init val mutable y = y_init method get_x = x method get_y = y method moveto (a,b) = x <- a ; y <- b method rmoveto (dx,dy) = x <- x + dx ; y <- y + dy method to_string () = "( " ^ (string_of_int x) ^ ", " ^ (string_of_int y) ^ ")" method distance () = sqrt (float(x*x + y*y)) end   let main () = let p1 = new point(1,2); print_endline ""   let _ = main ()

---

File "main.ml", line 19, characters 0-3:
Error: Syntax error

la ligne 19 est la ligne du let _ =