Verify the size of a file called     input.txt     for a file in the current working directory, and another one in the file system root.




let printFileSize filename =
  let ic = open_in filename in
  Printf.printf "%d\n" (in_channel_length ic);
  close_in ic ;;
 
printFileSize "input.txt" ;;
printFileSize "/input.txt" ;;