Lenghtening prog4B.cpp