Я хочу прочитать некоторые цифры из файла, перенести их в список и, наконец, отобразить их на экране. numbers.txt в настоящее время имеет2 3 5 7 11 Однако в качестве выхода я получаю11 7 5 3 2 - : unit = ()

Почему это происходит?

let rec int_list_from_sb sb n = 
match n with 
| 0 -> [];
| _ -> (bscanf sb " %d" (fun a -> a))::(int_list_from_sb sb (n - 1));;

let file_name = open_in "numbers.txt" in 
let sb = Scanning.from_channel file_name in 
let int_list = int_list_from_sb sb 5 in
List.iter (fun a -> print_int a) int_list;;