xs <- 1:5
ys <- xs |> lapply(function(x) x * 2) |> unlist()
print(ys)