(172 . 8)(172 . 8)
5 New_Line;
6 New_Line;
7
8 FZ_Neg(X, Z);
9 Put_Line("After FZ_Neg(X, Z):");
10 FZ_Not(X, Z);
11 Put_Line("After FZ_Not(X, Z):");
12 Put_Line("Z =");
13 Dump(Z);
14 New_Line;