Haskell - Writing Particle Sistem