module
DiskData
=
Disk
.
Empty
(
struct
let
block_size
= 256
let
block_nb
=100
end
)
module
MyDisk
=
Disk
.
Makedisk
(
DiskData
);;