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"