wellcom:-write('first name:'),
         read(X),write('middle name:'),read(Y),nl,write('well com:'),write(X),write('/'),
             write(Y),nl,write('succeeded.'),nl,wellcom.