enation items2)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  itemList3 <- liftIO $ searchItemsWithPage (pagenation items2 !! 0)
  let items3 = fst itemList3
  liftIO $ mapM_ (\l ->  print $ l) (list items3)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items3)

runGetTagItems :: StateT QiitaContext IO ()
runGetTagItems = do
  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 1. -----------------------------"
  itemList1 <- liftIO $ getTagItemsFirstPage "Haskell"
  let items1 = fst itemList1
  liftIO $ mapM_ print (list items1)
  liftIO $ mapM_ print (pagenation items1)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 2. -----------------------------"
  itemList2 <- liftIO $ getTagItemsFirstPage' "Haskell" 10
  let items2 = fst itemList2
  liftIO $ mapM_ print (list items2)
  liftIO $ mapM_ print (pagenation items2)

  liftIO $ putStrLn ""
runSearchItemsCore2 :: IO ()
runSearchItemsCore2 = do
  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 1. -----------------------------"
  itemList1 <- liftIO $ searchItemsFirstPage "haskell"
  let items1 = fst itemList1
  liftIO $ mapM_ (\l ->  print $ l) (list items1)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items1)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 2. -----------------------------"
  itemList2 <- liftIO $ searchItemsFirstPage' "haskell" 2
  let items2 = fst itemList2
  liftIO $ mapM_ (\l ->  print $ l) (list items2)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items2)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  itemList3 <- liftIO $ searchItemsWithPage (pagenation items2 !! 0)
  let items3 = fst itemList3
  liftIO $ mapM_ (\l ->  print $ l) (list items3)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items3)
runSearchItemsCore2 = do
  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 1. -----------------------------"
  itemList1 <- liftIO $ searchItemsFirstPage "haskell"
  let items1 = fst itemList1
  liftIO $ mapM_ (\l ->  print $ l) (list items1)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items1)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 2. -----------------------------"
  itemList2 <- liftIO $ searchItemsFirstPage' "haskell" 2
  let items2 = fst itemList2
  liftIO $ mapM_ (\l ->  print $ l) (list items2)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items2)

  liftIO $ putStrLn ""
  liftIO $ putStrLn "- 3. -----------------------------"
  itemList3 <- liftIO $ searchItemsWithPage (pagenation items2 !! 0)
  let items3 = fst itemList3
  liftIO $ mapM_ (\l ->  print $ l) (list items3)
  liftIO $ mapM_ (\l ->  print $ l) (pagenation items3)