4 lines
140 B
Text
4 lines
140 B
Text
let printLargeFileSize filename =
|
|
let ic = open_in filename in
|
|
Printf.printf "%Ld\n" (LargeFile.in_channel_length ic);
|
|
close_in ic ;;
|