pascals_triangle <- function(n) { }