main = do
forum <- forumLogin ftbForumAddress userName pass
thread <- getThread "Good vs. Evil" forum
lastPost <- last . thread
lastPoster <- user lastPost
if (name lastPoster) /= userName
then do
makePost (show . succ . read . content $ lastPoster) forum thread
sleep 30
main
else do
sleep 10
main