//subAck1();
EXPORT Ackermann_function(m,n)
BEGIN
PRINT;
 PRINT("Ackermann("+m+","+n+") = "+subAck1(m,n));
END;

subAck1(m,n)
BEGIN
CASE
 IF m<0 OR n<0 THEN "m y n deben ser >=0" END;
 IF m=0 THEN n+1 END;
 IF m>0 AND n=0 THEN subAck1((m-1),1); END;
 IF m>0 AND n>0 THEN subAck1((m-1),subAck1(m,(n-1))); END;
 DEFAULT RETURN PRINT("ERROR");
END;
END;