----------------------"
  tagList2 <- liftIO $ getUserFollowingTagsFirstPage' "jabaraster" 2
  let tags2 = fst tagList2
  liftIO $ mapM_ (\l ->  print $ l) (list tags2)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation tags2)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  tagList3 <- liftIO $ getUserFollowingTagsWithPage (pagenation tags2 !! 0)
  let tags3 = fst tagList3
  liftIO $ mapM_ (\l ->  print $ l) (list tags3)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation tags3)

runGetUserFollowingUsers :: IO ()
runGetUserFollowingUsers = 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 runGetUserFollowingUsersCore 
runGetUserFollowingTagsCore2 :: IO ()
runGetUserFollowingTagsCore2 = do
  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 1. -----------------------------"
  tagList1 <- liftIO $ getUserFollowingTagsFirstPage "jabaraster"
  let tags1 = fst tagList1
  liftIO $ mapM_ (\l ->  print $ l) (list tags1)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation tags1)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 2. -----------------------------"
  tagList2 <- liftIO $ getUserFollowingTagsFirstPage' "jabaraster" 2
  let tags2 = fst tagList2
  liftIO $ mapM_ (\l ->  print $ l) (list tags2)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation tags2)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  tagList3 <- liftIO $ getUserFollowingTagsWithPage (pagenation tags2 !! 0)
  let tags3 = fst tagList3
  liftIO $ mapM_ (\l ->  print $ l) (list tags3)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation tags3)
runGetUserFollowingTagsCore2 = do
  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 1. -----------------------------"
  tagList1 <- liftIO $ getUserFollowingTagsFirstPage "jabaraster"
  let tags1 = fst tagList1
  liftIO $ mapM_ (\l ->  print $ l) (list tags1)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation tags1)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 2. -----------------------------"
  tagList2 <- liftIO $ getUserFollowingTagsFirstPage' "jabaraster" 2
  let tags2 = fst tagList2
  liftIO $ mapM_ (\l ->  print $ l) (list tags2)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation tags2)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  tagList3 <- liftIO $ getUserFollowingTagsWithPage (pagenation tags2 !! 0)
  let tags3 = fst tagList3
  liftIO $ mapM_ (\l ->  print $ l) (list tags3)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation tags3)