type t =
| Normal
| Hard
| Symbolic
| Character
| Block
| Directory
| FIFO
val to_string : t -> string