calcForceAtQuad ts
  | L.length ts >= 6 = L.foldl' (&+) zero ts
  | otherwise        = L.foldl' (&+) zero ts
calcForceAtQuad ts
  | L.length ts >= 6 = L.foldl' (&+) zero ts
  | otherwise        = L.foldl' (&+) zero ts
calcForceAtQuad ts
  | L.length ts >= 6 = L.foldl' (&+) zero ts
  | otherwise        = L.foldl' (&+) zero ts