unit LittleTest22;

{ AFS August 2003
 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility }

interface

implementation

procedure False;
begin
end;

function Null: integer;
begin
  result := 3;
end;                       

end.
 