p1([],[]):-!.

p1([H|[]],[H]):- number(H),!.

p1([H1,H2|T],[H1|Q]):- number(H1),
                       number(H2),
                       p1([H2|T],Q).

p1([H1,H2|T],[H1,R|Q]):- number(H1),
                         is_list(H2),
                         aux(H2,1,1,H1,R),
                         p1(T,Q).