-part1 particles
- | area' > area = showParticles particles
- | otherwise = part1 particles'
- where particles' = updateAll particles
- area = boundsArea particles
- area' = boundsArea particles'
+-- part1 particles
+-- | area' > area = showParticles particles
+-- | otherwise = part1 particles'
+-- where particles' = updateAll particles
+-- area = boundsArea particles
+-- area' = boundsArea particles'