OCaml, print_str и side effect

Почему в данном коде весь вывод появляется на экране после окончания выполнения cicle?

let rec cicle timeout =
if timeout = 0 then 0
else begin
print_string («ok» ^ (string_of_int timeout) ^ «\n»);
Unix.sleep 1;
cicle (timeout - 1)
end
;;

cicle 10 ;;