Prolog list: how to obtain pairs of adjacent items?

Question

I want to provide a Prolog program that defines a predicate couples(L,C) that, given a list of integers L, returns a list of couples C that contains all the pairs of ad