-- | Construct kings on @n@ bells.
kings            :: Length -> Row
kings (Length 1) = Row [fromInt 1]
kings            :: Length -> Row
kings (Length 1) = Row [fromInt 1]
kings (Length 1) = Row [fromInt 1]