Do_random.DeepSourceval do_random :
Random.State.t ->
int ->
Plebeia.Cursor.cursor ->
Plebeia.Cursor.cursor
* [> `Commit
| `Copy of Plebeia.Segment.t list * Plebeia.Segment.t list
| `Delete of Plebeia.Segment.t list
| `Insert of Plebeia.Segment.t list * Plebeia.Value.t
| `Subtree of Plebeia.Segment.t list
| `Upsert of Plebeia.Segment.t list * Plebeia.Value.t ]
list