main :: IO ()
main = do
  start <- getCurrentTime
  putStrLn $ show $ move 0 initGame
  end <- getCurrentTime
  putStrLn $ "running move for init Game took " ++ show (diffUTCTime end start)
main :: IO ()
main = do
  start <- getCurrentTime
  putStrLn $ show $ move 0 initGame
  end <- getCurrentTime
  putStrLn $ "running move for init Game took " ++ show (diffUTCTime end start)
main = do
  start <- getCurrentTime
  putStrLn $ show $ move 0 initGame
  end <- getCurrentTime
  putStrLn $ "running move for init Game took " ++ show (diffUTCTime end start)