def coordinates := [x, y, z, w]

def metric :=
  generateTensor
    (\match as list integer with
      | [$n, #n] -> 1
      | _        -> 0)
    [4, 4]