Comment déplier une liste en une liste faisant la somme ne contenant que des 1 ?

deplier.erl

% Réaliser la fonction de dépliment en unités
% Spécification :
% depl(L) est la liste obtenue en "déplissant en unités" de L,
% liste d'entiers naturels supérieurs à 0

% Exemple :
% > depl([2,0,1]).
% [1,1,1]
%
% > depl([2,1]).
% [1,1,1]
%
% > depl([3]).
% [1,1,1]

depl([])->[];
delp([0|Fin])->
    depl(Fin);
depl([Pr|Fin])->
    [1|depl([Pr-1|Fin])];