swapMany :: (a, b, c, d, e) -> (e, d, c, b, a) swapMany (a, b, c, d, e) = (e, d, c, b, a)