-- Test/PowerTest.mesa
-- Satterthwaite November 18, 1985 4:39:10 pm PST

 
PowerTest: PROGRAM ~ {

  Test: PROC~{
    x, y: CARDINAL;
    x ← y/1; x ← y MOD 1;
    x ← y/2; x ← y MOD 2;
    x ← y/4096; x ← y MOD 4096;
    x ← y/32768; x ← y MOD 32768;
    };
    
  }.