The power of the President: a quantitative narrative analysis of the Diary of an Italian head of state (2006–2013)