global variable

Hello, I need a function called, say, newItem :: Int, that when first called returns 1, the next time it is called it would return 2, then 3 and so on. How can I achieve this? Thank you