let file_info_to_string = function   | `Absent -> "Absent"   | `Regular_file i -> sprintf "Regular file (size %d B)" i   | `Symlink s -> sprintf "Sym-link to %S" s   | `Block_device -> "Block device"   | `Character_device -> "Character device"   | `Directory -> "Directory"   | `Fifo -> "FIFO"   | `Socket -> "Socket"