----------"
  items <- getItemsFirstPage' 5
  liftIO $ mapM_ (\l ->  print $ l) (list items)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  items <- getItemsWithPage (pagenation items !! 0)
  liftIO $ mapM_ (\l ->  print $ l) (list items)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items)

runGetStocks :: IO ()
runGetStocks = do
  putStrLn "Input your User Id and Enter、then password and Enter"
  input <- getContents
  lines <- return $ lines input

  let user = C8.pack $ lines !! 0
  let pass = C8.pack $ lines !! 1

  withAuthentication user pass
        (\err limit -> print err >> print limit) -- 認証エラー時の処理
    
runGetItemsCore2 :: IO ()
runGetItemsCore2 = do
  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 1. -----------------------------"
  items <- getItemsFirstPage
  liftIO $ mapM_ (\l ->  print $ l) (list items)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 2. -----------------------------"
  items <- getItemsFirstPage' 5
  liftIO $ mapM_ (\l ->  print $ l) (list items)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  items <- getItemsWithPage (pagenation items !! 0)
  liftIO $ mapM_ (\l ->  print $ l) (list items)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items)
runGetItemsCore2 = do
  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 1. -----------------------------"
  items <- getItemsFirstPage
  liftIO $ mapM_ (\l ->  print $ l) (list items)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 2. -----------------------------"
  items <- getItemsFirstPage' 5
  liftIO $ mapM_ (\l ->  print $ l) (list items)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  items <- getItemsWithPage (pagenation items !! 0)
  liftIO $ mapM_ (\l ->  print $ l) (list items)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items)