begin 

    comment library 1;
    integer procedure p(b);
        value 
            b;
        boolean 
            b;
        p := (if b then 1 else 3.3) % 6;

    outreal(1, p(true ));
    outreal(1, p(false ))
end