MODULE TQualP;
IMPORT DQualP;
VAR ExitCode : INTEGER;
BEGIN
  DQualP.P;
  ExitCode := 0
END TQualP.