ввод ocaml _символ

Я пытаюсь прочитать char из файла, передаваемого через stdinput в ocaml. Мне было интересно, почему я продолжаю получать единицу, когда я могу напечатать _char char, который я получаю в следующем коде. Кроме того, я пытаюсь составить список этих персонажей, которые пока не будут работать.

let () =
let charList = [] in 
let inchar = open_in Sys.argv.(1) in
    try 
            while true do
                let c = Char.uppercase(input_char inchar) in
                    print_char c; print_int (List.length charList);c::charList
            done
    with End_of_file -> close_in inchar;(*; print_int (List.length charList); printTest charList;*)

;;