we <3 Hentai

x = {r, \[CurlyTheta], \[CurlyPhi], t};
d = Length[x];
g = {{(1 - R/r)^-1, 0, 0, 0}, {0, r^2, 0, 0}, {0, 0,
    r^2 Sin[\[CurlyTheta]]^2, 0}, {0, 0, 0, -(1 - R/r)}};

Table[
 1/2 \!\(
\*SubsuperscriptBox[\(\[Sum]\), \(m = 1\), \(d\)]\(
SubscriptBox[\(Inverse[g]\), \(\([[\)\(i, m\)\(]]\)\)] \((
\*SubscriptBox[\(\[PartialD]\), \(x[[l]]\)]
\*SubscriptBox[\(g\), \(\([[\)\(m, k\)\(]]\)\)] +
\*SubscriptBox[\(\[PartialD]\), \(x[[k]]\)]
\*SubscriptBox[\(g\), \(\([[\)\(m, l\)\(]]\)\)] -
\*SubscriptBox[\(\[PartialD]\), \(x[[m]]\)]
\*SubscriptBox[\(g\), \(\([[\)\(k, l\)\(]]\)\)])\)\)\)
 , {i, 1, d}, {k, 1, d}, {l, 1, d}]