ain :: IO ()
main = do
  clearLogs bCount
  runTest
    bCount
    (roomBodies roomGravity roomBodyList verlet)
  where
    roomGravity = V3 0 0 (-2)
    roomBodyList = [(Body 1 zero, V3 1 1 1)]
    bCount = length roomBodyList

main :: IO ()
main = do
  clearLogs bCount
  runTest
    bCount
    (roomBodies roomGravity roomBodyList verlet)
  where
    roomGravity = V3 0 0 (-2)
    roomBodyList = [(Body 1 zero, V3 1 1 1)]
    bCount = length roomBodyList
main = do
  clearLogs bCount
  runTest
    bCount
    (roomBodies roomGravity roomBodyList verlet)
  where
    roomGravity = V3 0 0 (-2)
    roomBodyList = [(Body 1 zero, V3 1 1 1)]
    bCount = length roomBodyList