nested_list function

Output a nested list in RMarkdown list format