sig type t = float val clip : Audio.Sample.t -> Audio.Sample.t end