rounds            :: Length -> Row
rounds (Length n) = Row [fromInt 1 .. fromInt n]
rounds            :: Length -> Row
rounds (Length n) = Row [fromInt 1 .. fromInt n]
rounds (Length n) = Row [fromInt 1 .. fromInt n]