begin 
comment library 1;
    integer 
        n;
    integer procedure p(q, r);
        integer procedure 
            r,
            q;

        comment   (r):integer procedure r;

        begin 
        integer 
            b;
        b := 3 * q(r);
        p := b
        end;

    integer procedure a(f);
        integer procedure 
            f;
        a := 2 * f;

    integer procedure b;
        begin 
        n := n - 1;
        b :=
            if n = 0 then 
                1
            else 
                p(a, b) + 1
        end;

    n := 2;
    n := p(a, b);
    outreal(1, n)
end