list_length(L) ->
        list_length(L,0).

list_length([],A) ->
        A;

list_length([H | R], A) ->
        list_length(R,A + 1).