Problem langage CAML

Bonjour,

j'ai un souci avec ce programme :

let rec aux (refer: int list ref) (r:int) (l:int list) =
if (list_length l) < r+1 then
begin
refer := tl refer;
(aux refer r (hd !refer)::l);
end;
else l ;;

Je trouve pas mon erreur quelqu'un peu m'iader ?? merci