-- | Retrieve a bell by index.
getBell            :: Row -> Int -> Bell
getBell (Row bs) i = bs !! (i - 1)
getBell            :: Row -> Int -> Bell
getBell (Row bs) i = bs !! (i - 1)
getBell (Row bs) i = bs !! (i - 1)