modified CONSEQ script