toEqns' :: SSystem Double -> [Double] -> [Double]
toEqns' SSystem {..} = traverse toEqn' (foldr (:) [] _odes)
toEqns' :: SSystem Double -> [Double] -> [Double]
toEqns' SSystem {..} = traverse toEqn' (foldr (:) [] _odes)
toEqns' SSystem {..} = traverse toEqn' (foldr (:) [] _odes)