ow ctx2))

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 2. -----------------------------"
  items <- getItemsAFirstPage' 2
  liftIO $ mapM_ (\l ->  print $ l) (list items)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  items <- getItemsAWithPage (pagenation items !! 0)
  liftIO $ mapM_ (\l ->  print $ l) (list items)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))

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. -----------------
runGetItemsCore :: StateT QiitaContext IO ()
runGetItemsCore = do
  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 1. -----------------------------"
  items <- getItemsAFirstPage
  liftIO $ mapM_ (\l ->  print $ l) (list items)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 2. -----------------------------"
  items <- getItemsAFirstPage' 2
  liftIO $ mapM_ (\l ->  print $ l) (list items)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  items <- getItemsAWithPage (pagenation items !! 0)
  liftIO $ mapM_ (\l ->  print $ l) (list items)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))
runGetItemsCore = do
  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 1. -----------------------------"
  items <- getItemsAFirstPage
  liftIO $ mapM_ (\l ->  print $ l) (list items)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 2. -----------------------------"
  items <- getItemsAFirstPage' 2
  liftIO $ mapM_ (\l ->  print $ l) (list items)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  items <- getItemsAWithPage (pagenation items !! 0)
  liftIO $ mapM_ (\l ->  print $ l) (list items)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items)
  ctx2 <- get
  liftIO $ putStrLn ("Post: " ++ (show ctx2))