st: " ++ (show ctx2))

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 2. -----------------------------"
  tagList2 <- liftIO $ getUserFollowingTagsAFirstPage' "jabaraster" 2
  let tags2 = fst tagList2
  liftIO $ mapM_ (\l ->  print $ l) (list tags2)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation tags2)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  tagList3 <- liftIO $ getUserFollowingTagsAWithPage (pagenation tags2 !! 0)
  let tags3 = fst tagList3
  liftIO $ mapM_ (\l ->  print $ l) (list tags3)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation tags3)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))

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. -----
runGetUserFollowingTagsCore :: StateT QiitaContext IO ()
runGetUserFollowingTagsCore = do
  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 1. -----------------------------"
  tagList1 <- liftIO $ getUserFollowingTagsAFirstPage "jabaraster"
  let tags1 = fst tagList1
  liftIO $ mapM_ (\l ->  print $ l) (list tags1)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation tags1)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 2. -----------------------------"
  tagList2 <- liftIO $ getUserFollowingTagsAFirstPage' "jabaraster" 2
  let tags2 = fst tagList2
  liftIO $ mapM_ (\l ->  print $ l) (list tags2)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation tags2)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  tagList3 <- liftIO $ getUserFollowingTagsAWithPage (pagenation tags2 !! 0)
  let tags3 = fst tagList3
  liftIO $ mapM_ (\l ->  print $ l) (list tags3)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation tags3)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))
runGetUserFollowingTagsCore = do
  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 1. -----------------------------"
  tagList1 <- liftIO $ getUserFollowingTagsAFirstPage "jabaraster"
  let tags1 = fst tagList1
  liftIO $ mapM_ (\l ->  print $ l) (list tags1)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation tags1)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 2. -----------------------------"
  tagList2 <- liftIO $ getUserFollowingTagsAFirstPage' "jabaraster" 2
  let tags2 = fst tagList2
  liftIO $ mapM_ (\l ->  print $ l) (list tags2)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation tags2)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  tagList3 <- liftIO $ getUserFollowingTagsAWithPage (pagenation tags2 !! 0)
  let tags3 = fst tagList3
  liftIO $ mapM_ (\l ->  print $ l) (list tags3)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation tags3)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))