unit umainnam;

interface

{$pascalmainname testing}

implementation

end.