akeSteps :: Int -> Waveset a -> Waveset a
takeSteps i (Waveset ws dx dt x0) = Waveset (take i ws) dx dt x0

takeSteps :: Int -> Waveset a -> Waveset a
takeSteps i (Waveset ws dx dt x0) = Waveset (take i ws) dx dt x0
takeSteps i (Waveset ws dx dt x0) = Waveset (take i ws) dx dt x0