listStar([], []).
listStar([X|Xs], [X, * | Ys]) :-
    listStar(Xs, Ys).