Lengthening prog4B.cpp