Haskell gravity web simulation