-- Ackermann function
module test029;

import Stdlib.Prelude open;

ack : Nat → Nat → Nat
  | zero n := n + 1
  | (suc m) zero := ack m 1
  | (suc m) (suc n) := ack m (ack (suc m) n);

main : Nat :=
  ack 0 7
    + ack 1 7
    + ack 1 13
    + ack 2 7
    + ack 2 13;