diff --git a/dywapitchtrack.cabal b/dywapitchtrack.cabal
--- a/dywapitchtrack.cabal
+++ b/dywapitchtrack.cabal
@@ -1,5 +1,5 @@
 name: dywapitchtrack
-version: 0.1.0.0
+version: 0.1.0.1
 cabal-version: >=1.10
 build-type: Simple
 license: MIT
diff --git a/src/DywaPitchTrack.hs b/src/DywaPitchTrack.hs
--- a/src/DywaPitchTrack.hs
+++ b/src/DywaPitchTrack.hs
@@ -16,6 +16,7 @@
 module DywaPitchTrack (
     PitchTrack
   , runPitchTrack
+  , askSampleNum
   , computePitch
   , neededSampleNum
   , sampleSize
@@ -40,6 +41,10 @@
 runPitchTrack sampleNum f = withDywaPitchTrack $ \ptr -> do
     dywapitchInitTracking ptr
     runReaderT (unPitchTrack f) (ptr, sampleNum)
+
+-- | The number of samples used for each computation
+askSampleNum :: PitchTrack Int
+askSampleNum = PitchTrack $ snd <$> ask
 
 -- | Compute the pitch.
 --