function toto (const i : int) : int is
block {
function tata (const j : int) : int is i+j;
function titi (const j : int) : int is i+j
} with tata (i) + titi (i)