Это то, что у меня есть. Разве это не все, что тебе нужно? Я все время получаю сообщение об ошибке "Ошибка: несвязанный модуль Std"
let r file = let chan = open_in file in Std.input_list (chan)