Prolog - repetir elementos de una lista

necesito hacer un predicado repeatnd que toma una lista L de elementos y devuelve una lista L1, donde el primer elemento es igual al de L, el segundo es el de L duplicado, el tercero triplicado, el cuarto ... así sucesivamente. Por ejemplo: repeatnd([a,b,c,d],L) acota L a [a,b,b,c,c,c,d,d,d,d].
Agradecere su ayuda.