<- liftIO $ getUserFollowingUsersFirstPage' "jabaraster" 2
  let users2 = fst userList2
  liftIO $ mapM_ (\l ->  print $ l) (list users2)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation users2)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  userList3 <- liftIO $ getUserFollowingUsersWithPage (pagenation users2 !! 0)
  let users3 = fst userList3
  liftIO $ mapM_ (\l ->  print $ l) (list users3)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation users3)

runGetUserStocks :: IO ()
runGetUserStocks = 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) -- 認証エラー時の処理
       (\ctx -> evalStateT runGetUserStocksCore ctx) -- 認証OK後の処理

  -- 認証なし実行
  runGetUserStocksCore2

runGetUserSto
runGetUserFollowingUsersCore2 :: IO ()
runGetUserFollowingUsersCore2 = do
  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 1. -----------------------------"
  userList1 <- liftIO $ getUserFollowingUsersFirstPage "jabaraster"
  let users1 = fst userList1
  liftIO $ mapM_ (\l ->  print $ l) (list users1)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation users1)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 2. -----------------------------"
  userList2 <- liftIO $ getUserFollowingUsersFirstPage' "jabaraster" 2
  let users2 = fst userList2
  liftIO $ mapM_ (\l ->  print $ l) (list users2)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation users2)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  userList3 <- liftIO $ getUserFollowingUsersWithPage (pagenation users2 !! 0)
  let users3 = fst userList3
  liftIO $ mapM_ (\l ->  print $ l) (list users3)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation users3)
runGetUserFollowingUsersCore2 = do
  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 1. -----------------------------"
  userList1 <- liftIO $ getUserFollowingUsersFirstPage "jabaraster"
  let users1 = fst userList1
  liftIO $ mapM_ (\l ->  print $ l) (list users1)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation users1)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 2. -----------------------------"
  userList2 <- liftIO $ getUserFollowingUsersFirstPage' "jabaraster" 2
  let users2 = fst userList2
  liftIO $ mapM_ (\l ->  print $ l) (list users2)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation users2)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  userList3 <- liftIO $ getUserFollowingUsersWithPage (pagenation users2 !! 0)
  let users3 = fst userList3
  liftIO $ mapM_ (\l ->  print $ l) (list users3)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation users3)