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

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  userList3 <- liftIO $ getUserFollowingUsersAWithPage (pagenation users2 !! 0)
  let users3 = fst userList3
  liftIO $ mapM_ (\l ->  print $ l) (list users3)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation users3)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))

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

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

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  userList3 <- liftIO $ getUserFollowingUsersAWithPage (pagenation users2 !! 0)
  let users3 = fst userList3
  liftIO $ mapM_ (\l ->  print $ l) (list users3)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation users3)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))
runGetUserFollowingUsersCore = do
  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 1. -----------------------------"
  userList1 <- liftIO $ getUserFollowingUsersAFirstPage "jabaraster"
  let users1 = fst userList1
  liftIO $ mapM_ (\l ->  print $ l) (list users1)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation users1)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))

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

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  userList3 <- liftIO $ getUserFollowingUsersAWithPage (pagenation users2 !! 0)
  let users3 = fst userList3
  liftIO $ mapM_ (\l ->  print $ l) (list users3)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation users3)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))