$ PL PROGRAM CHAIN TESTING FOR SCANNER...
BEGIN
  INTEGER dna, dan, AND, NDA;
  DNA:= DAN + DNA + AND - NDA;
END.