Module Som (.ml)

module Som: sig .. end

type 'a node = {

	`mutable value : 'a;`
	`mutable content : 'a list;`

}
type dist_coord = {

	`dist : float;`
	`coord : int Types.coord;`

}

class ['a] som : int Types.coord -> ('a -> 'a -> float) -> (float -> 'a -> 'a -> 'a) -> (int Types.coord -> 'a) -> object .. end