use requestBody correctly using monad-loops : unfoldM