Mirage_block_patterns.Fill
module Block : B.S
val random : Block.t -> ( unit, Block.write_error ) Stdlib.result Lwt.t