showPosts = inBase . mapM_ (puts . (" " ++) . show) . M.toList =<< getPosts
clearPosts = mapM_ removePost . M.keys =<< getPosts