let exec l = Exec (List.map l ~f:(fun s -> Literal (Literal.String s)))