Unit Foo;


Interface


Procedure bar;


Implementation


Procedure bar;

begin (* bar *)
  writeln ( "Bar" );
end (* bar *);


end.