module HBar_values: sig .. end
sig
end
type hbar_value =
|
Int of int
int
Float of float
float
LeftRightInt of int * int
int * int
LeftRightFloat of float * float
float * float