benchmark :: Fay ()
benchmark = do
  start <- getSeconds
  printD (sum 1000000 0 :: Double)
  end <- getSeconds
  printS (show (end-start) ++ "ms")

-- the tail recursive function
benchmark :: Fay ()
benchmark = do
  start <- getSeconds
  printD (sum 1000000 0 :: Double)
  end <- getSeconds
  printS (show (end-start) ++ "ms")

-- the tail recursive function
benchmark = do
  start <- getSeconds
  printD (sum 1000000 0 :: Double)
  end <- getSeconds
  printS (show (end-start) ++ "ms")

-- the tail recursive function