ShiftToCenter
Main
center :: Structure -> Vector3
shift :: Iterable a Atom => Vector3 -> a -> a
main :: IO ()