5 lines
140 B
Text
5 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 ;;
|