04.13. twice (Zusatzaufgabe)

Schreibe ein Prädikat twice(In,Out) dessen erstes Argument eine Liste ist und dessen zweites Argument ebenfalls eine Liste ist, bei der jedes Element der ersten Liste verdoppelt ist.

Hier gibt es zwei Beispielsanfragen:

?- twice([a,4,buggle],X).
X = [a,a,4,4,buggle,buggle].

?- twice([1,2,1,1],X).
X = [1,1,2,2,1,1,1,1].

Erstelle hierzu ein eigenes Prolog Programm und teste dieses eigenständig.