getSignalSample :: Signal -> Int -> IO SValue
getSignalSample signal sample_idx = do
  sample <- readArray (signalArray signal) sample_idx
  return sample
getSignalSample :: Signal -> Int -> IO SValue
getSignalSample signal sample_idx = do
  sample <- readArray (signalArray signal) sample_idx
  return sample
getSignalSample signal sample_idx = do
  sample <- readArray (signalArray signal) sample_idx
  return sample