:- module(add_string, [p/1]).

p([a,b,c,d]).