Как подсчитать количество вызовов функции, метод FP

В настоящее время я работаю над SICPс Haskell. В упражнении 1.15 спрашивается, сколько раз вызывается функция. Идея, вероятно, заключается в том, что вы должны использовать метод подстановки, но я хотел бы знать, как это сделать в коде.

В императивном языке можно сохранить глобальную переменную и увеличивать ее каждый раз при вызове функции. Но как бы вы это сделали на Haskell (или чисто функциональным способом)?