Будьте добры, помогите, пожалуйста с задачкой, использую Gnu Prolog.

Сжать список.
Пример: encode_direct([a,a,b,c,c,a,,d,e,e,e,], X) -> X = [[2,a],b,[2,c],a,d,[3,e]]