как увеличить переменную в функциональном программировании

Как вы увеличиваете переменную в функциональном языке программирования?

Например, я хочу сделать:

main :: IO ()
main = do
    let i = 0
    i = i + 1
    print i

Ожидаемый результат :1.