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)