-- | Express the row as a product of disjoint cycles.
cycles   :: Row -> [[Bell]]
cycles _ = error "Not implemented"
cycles   :: Row -> [[Bell]]
cycles _ = error "Not implemented"
cycles _ = error "Not implemented"