let fstype() =     let buffer = String.create D.block_size in     D.read_block 0 buffer 0;     String.sub buffer 0 4