extending lists:flatten to s certain level