type ('context, 'action) option_ = {action : 'action;label : string;score : 'context -> float;
}val scores :
('context, 'action) option_ list ->
'context ->
('action * float) listval choose :
?current:'action ->
?inertia:float ->
('context, 'action) option_ list ->
'context ->
'action optionval clamp01 : float -> floatval linear : lo:float -> hi:float -> float -> float