1package cst is
2  function four return natural;
3end cst;
4
5package body cst is
6  function four return natural is
7  begin
8    return 4;
9  end four;
10end cst;
11