1package Weak3 is
2   procedure Foo;
3end Weak3;
4