OCaml“else”语法错误

我是第一次学习 OCaml，我遇到了一个非常模糊的“语法错误”的麻烦。 定义函数时generateboxes像这样：

let rec generateboxes a b = 
    if a = (add1 b) then (force_newline ()); (print_sting "Done!")
    else if [1] = (Array.get finalarray a) then (populatebox
    (numbertoposition a) a); (generateboxes (add1 a) b)
    else (generateboxes (add1 a) b);;

编译器给出错误消息：“语法错误”，它指向第一个else。我的代码输出这样的消息有什么明显的错误吗？ （我意识到代码脱离了上下文，但如果它是语法错误那么它应该不重要）。

let rec generateboxes a b = 
    if a = add1 b then (force_newline (); print_sting "Done!")
    else if [1] = Array.get finalarray a then
      (populatebox (numbertoposition a) a; generateboxes (add1 a) b)
    else generateboxes (add1 a) b;;

如果一个语句中有多个语句then or an else子句，您需要将它们放在括号内。 或者，你可以把begin ... end在他们旁边：

let rec generateboxes a b = 
    if a = add1 b
    then begin
      force_newline ();
      print_sting "Done!" end
    else if [1] = Array.get finalarray a
    then begin
      populatebox (numbertoposition a) a;
      generateboxes (add1 a) b end
    else generateboxes (add1 a) b;;

（请注意，我还删除了一些不必要的括号以使代码更清晰。）