#&@##& of if priority in OCaml (Yes, this patch took me 3h)