PROGRAM DEFSET5;
%KEYEDENTRY ON
FUNCTION SET5:INTEGER;
BEGIN
SET5:=5;
END;
BEGIN
END.