make a list of Xs

 % Returns a list Xs which contains N copies of the item X
inflate(X, 1, [X]):-!.
inflate(X, N, [X|Xs]) :-
          N1 is N - 1.
         inflate(X, N1, Xs).