better initial value for LOOP variables of-type CHARACTER