module Walk: sig .. end
sig
end
val skel : bool array array
bool array array
val pos : (float * float * float) array
(float * float * float) array
val root : int
int
val all : bool array array * (float * float * float) array * int
bool array array * (float * float * float) array * int
val first : int