function main (const i : int) : int is
  begin
   i := i + 1 ;
  end with i