Adds a prefix/suffix to a given word - back to content

		?- put_prefix(un,deliver,R).
		R = undeliver
		?- put_suffix(able,deliver,R).
 		R = deliverable
		?- name(melanie,Ascii_code). /* name/2 is a system predicate */
		Ascii_code=[109,101,108,97,110,105,101]
		?- name(X,[109,101,108,97,110,105,101]).
		X = melanie

put_prefix(P,C,R):- name(P,Pcode),name(C,Ccode), append(Pcode,Ccode,Rcode), name(R,Rcode). put_suffix(S,C,R):- name(S,Scode),name(C,Ccode), append(Ccode,Scode,Rcode), name(R,Rcode).