-- sampleRate ; the current nominal sample rate of the server
let sr = 48000 {- 44100 -}
    f = mce2 sampleRate sr * 0.01
in sinOsc ar f 0 * 0.1

---- ; server status ; extract nominal and actual sample rates from the synthesis server
withSc3 (Control.Monad.liftM2 (,) serverSampleRateNominal serverSampleRateActual)
