?- 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).