Design

					_The State of the Art in Modula 2_
by Kent Porter

Listing One

MODULE acker; 



(* Berkeley standard benchmark *) 
(* Ackerman's function: ack (2, 4) *) 
(* Tests recursion and integer math *) 
(* Repeats 10,000 times *) 



  VAR 
    loop, r: INTEGER; 
    (* ---------------------------------------------------------- *) 




  PROCEDURE ack(x1, x2: INTEGER): INTEGER; 

    VAR 
      result: ...