[Haskell-cafe] newbie timing question

Hello, I'm trying to write a simple function to time an application. -- this doesn't work time f x = do n1 <- CPUTime.getCPUTime let res = f x in do n2 <- CPUTime.getCPUTime return (res,n2 - n1) On a function that takes 8 seconds to complete, returns (True,46000000) According to the documentation, this time is in picoseconds, making this 46 microseconds. I also tried -- neither does this time' f x = do n1 <- Time.getClockTime let res = f x in do n2 <- Time.getClockTime return (res,Time.diffClockTimes n2 n1) It returns something on that scale for picoseconds. How can I get a rough wall clock timing of functions? Thanks! Sean