A simple toy gravity simulator in Haskell