-- -- Null Main Program -- -- $Id$ -- procedure Empty is begin Null; end Empty;