type t = {number : int;edges : (int * int) list;carriers : int list;feedback : int * int;
}val modulators : t -> int -> int listval create : unit -> stateval sample :
t ->
state ->
feedback:int ->
increments:float array ->
amplitudes:float array ->
floatval output : state -> int -> float