acker_p.p 383 Bytes
program tacker(output);
{ solution of fast growing recursive function ackerman(mc,nc) }
   const MC = 3;
         NC = 8;

   function acker(m, n: integer): integer;
   begin
      if m = 0
	 then acker := n + 1
      else if n = 0
	 then acker := acker( m - 1, 1 )
      else acker := acker( m - 1, acker( m, n - 1 ) )
      end{acker};
begin
   writeln (acker( MC, NC ));
   end.