-- | Find the inverse of a row.
inverse   :: Row -> Row
inverse r = Row [fromInt $ findBell r b | b <- toList $ rounds $ bells r]
inverse   :: Row -> Row
inverse r = Row [fromInt $ findBell r b | b <- toList $ rounds $ bells r]
inverse r = Row [fromInt $ findBell r b | b <- toList $ rounds $ bells r]