rollMany :: Int -> Int -> Game -> Game
  rollMany times pin game
    | times == 0  = game
    | otherwise   = rollMany (times - 1) pin (roll pin game)
rollMany :: Int -> Int -> Game -> Game
rollMany times pin game
    | times == 0  = game
    | otherwise   = rollMany (times - 1) pin (roll pin game)
rollMany times pin game
    | times == 0  = game
    | otherwise   = rollMany (times - 1) pin (roll pin game)