findSolution (x:xs)
  | getNumBalls b == 1 = getMoveString x
  | otherwise         = findSolution xs
  where b = board x
findSolution (x:xs)
  | getNumBalls b == 1 = getMoveString x
  | otherwise         = findSolution xs
  where b = board x
findSolution (x:xs)
  | getNumBalls b == 1 = getMoveString x
  | otherwise         = findSolution xs
  where b = board x