testDwt :: (Array U DIM1 Double, Array U DIM1 Double, Array U DIM1 Double)
        -> Assertion
testDwt (ls, sig, expected) =
    expected @=~? dwtS ls sig
testDwt :: (Array U DIM1 Double, Array U DIM1 Double, Array U DIM1 Double)
        -> Assertion
testDwt (ls, sig, expected) =
    expected @=~? dwtS ls sig
testDwt (ls, sig, expected) =
    expected @=~? dwtS ls sig