begin 

    comment   et comment;


    comment library 1;

    real 
        c;
    array 
        d[ - 0 : + 1, 0#0 : 1.0];
    integer procedure r(c);
        real 
            c;
        r :=
            if true then 
                c
            else 
                r(0);

    d[0, 0] := c := c := 1;
    begin 
        real procedure p;
            begin 
            q(a, b, c, a[1])encore : (b[1], (1));
            for c := 1 step 1 until if false then p
                    else 1 do 
                for c := 1,
                    2 do 
                    ;
            p := (0)
            end :p;

        switch b :=
            (b[2]),
            l,
            if if a[1] = 0 & ! 'FALSE' then true 
                else false then b[a[1] + 1] else l;
        integer array 
            h,
            a[1 : c + d[0, 1 - (r( + 1))]],
            j[0 : 1];
        procedure q(a, b, c, d)e : (e, f);
            integer 
                f;
            switch 
                b;
            integer array 
                a;
            real 
                c;
            real 
                d;
            label 
                e;
            ;


        comment   begin comment end;

        a[1] := 0;
        l :;
        outreal(1, p);
        c := c + 1 * 1^1;
        if c = 2 then 
            go to b[p + 3]
    end 
end