% Take Num elements of a list
take(Num, X) -> take(Num, X, []).
take(0, _, Acc) -> Acc;
take(_, [], Acc) -> Acc;
take(Num, [X|Xs], Acc) ->
    take(Num-1, Xs, Acc ++ [X]).