-- | Construct tittums on @n@ bells.
tittums            :: Length -> Row
tittums (Length n) = Row $ concat $ Data.List.transpose [[fromInt 1 .. fromInt half], [fromInt $ half + 1 .. fromInt n]]
                         where half = (n + 1) `div` 2


-- | Construct reverse rounds on @n@ bells.
tittums            :: Length -> Row
tittums (Length n) = Row $ concat $ Data.List.transpose [[fromInt 1 .. fromInt half], [fromInt $ half + 1 .. fromInt n]]
                         where half = (n + 1) `div` 2


-- | Construct reverse rounds on @n@ bells.
tittums (Length n) = Row $ concat $ Data.List.transpose [[fromInt 1 .. fromInt half], [fromInt $ half + 1 .. fromInt n]]
                         where half = (n + 1) `div` 2


-- | Construct reverse rounds on @n@ bells.