INCLUDE "lib.cps" FUNCTION MAIN RETURNS INTEGER CALL Fail() RETURN 0 ENDFUNCTION