wellcom:-write('first name:'),
         read(X),write('middle name:'),read(Y),nl,write('well com:'),write(X),tab(1),
             write(Y),nl,write('do u want to continue y/n?'),read(R),(R=y,wellcom).