 , post_item_private = True
                         , post_item_gist = False
                         , post_item_tweet = False
                         }
  item <- postItem newItem
  liftIO $ print item

runGetItems :: IO ()
runGetItems = 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 -> p
runPostItem :: StateT QiitaContext IO ()
runPostItem = do
  let newItem = PostItem { post_item_title = "Qiita API on Haskell"
                         , post_item_body = "Qiita API on Haskell"
                         , post_item_tags = [ PostTag "Haskell" [] ]
                         , post_item_private = True
                         , post_item_gist = False
                         , post_item_tweet = False
                         }
  item <- postItem newItem
  liftIO $ print item
runPostItem = do
  let newItem = PostItem { post_item_title = "Qiita API on Haskell"
                         , post_item_body = "Qiita API on Haskell"
                         , post_item_tags = [ PostTag "Haskell" [] ]
                         , post_item_private = True
                         , post_item_gist = False
                         , post_item_tweet = False
                         }
  item <- postItem newItem
  liftIO $ print item