[Haskell-cafe] nbody benchmark please

[Branimir Maksimovic]

can someone put bang pattern with parameters in nbody benchmark program 
of mine
as it is on my machine significantly faster just because of that:

run :: Int -> Ptr Planet -> IO ()
run 0 _ = return ()
run !i !p = do
         advance p
         run (i-1) p

PS I lost my account and if someone has it please do this for me ;)

http://benchmarksgame.alioth.debian.org/u64q/program.php?test=nbody&lang=ghc&id=2

Also author of site removed my knucleotide benchmark which was among 
fastest because I didn't
use data.hashtable (which is slow), rather used my own (which is few 
lines of code)