RosettaCodeData/Task/Ackermann-function/Refal/ackermann-function.refal

$ENTRY Go {
    = <Prout 'A(3,9) = ' <A 3 9>>;
};

A {
    0   s.N   = <+ s.N 1>;
    s.M 0     = <A <- s.M 1> 1>;
    s.M s.N   = <A <- s.M 1> <A s.M <- s.N 1>>>;
};