diff --git a/Main.hs b/Main.hs
index 0431a9c..3eedfae 100644
--- a/Main.hs
+++ b/Main.hs
@@ -13,13 +13,13 @@ data State = State { position :: PolarCoord
                    , angularMomentum :: Float }
 
 majorMass :: Float
-majorMass = 200
+majorMass = 100
 
 minorMass :: Float
-minorMass = 20
+minorMass = 1
 
 initialState :: State
-initialState = State (PolarCoord 300 0) 0 0.001
+initialState = State (PolarCoord 200 0) 0 150
 
 majorRadius :: Float
 majorRadius = 20