fixed parsing for PROGRAM stmt