let duration b = float_of_int (geti b `size) /. float_of_int (geti b `frequency * geti b `channels * geti b `bits / 8)