Insert element after every element in list in Prolog

Question

I want to write a predicate that will insert a given element after every element in a list and will print resulting list.

For example: my list is [1,2,3,4,5]