akeTil :: RealFrac a => a -> Waveset a -> Waveset a
takeTil a wset = takeSteps i wset
    where i = ceiling $ a/wsetDt wset + 1

takeTil :: RealFrac a => a -> Waveset a -> Waveset a
takeTil a wset = takeSteps i wset
    where i = ceiling $ a/wsetDt wset + 1
takeTil a wset = takeSteps i wset
    where i = ceiling $ a/wsetDt wset + 1