let wave = new waveio in
let csv = new csvio in
let input_wave = wave#read (Array.of_list !inwavs) in
let input_csv = csv#read (Array.of_list !incsvs) in
let input = input_wave#append input_csv in
let wave = new waveio in
let csv = new csvio in
let input_wave = wave#read (Array.of_list !inwavs) in
let input_csv = csv#read (Array.of_list !incsvs) in
let input = input_wave#append input_csv in
let tic2 = Sys.time () in
let faust_exp = exp_of_string faust_core in
let proc = (new proc_factory)#make faust_exp in
let tic2 = Sys.time () in
let faust_exp = exp_of_string faust_core in
let proc = (new proc_factory)#make faust_exp in