module RowDisplacement: sig .. end
type table('a) = (array(int), array('a));
let compress:
(('a, 'a) => bool, 'a => bool, 'a, int, int, array(array('a))) =>
table('a);
let get: (table('a), int, int) => 'a;
let getget:
(
('displacement, int) => int,
('data, int) => 'a,
('displacement, 'data),
int,
int
) =>
'a;