something is seriously wrong here

lulu:~/hs% cat test.hs
module Main where

main :: IO ()
main = do putStr "ok\n"
       
lulu:~/hs% time ghc test.hs
ghc test.hs  2.61s user 0.67s system 99% cpu 3.283 total

lulu:~/hs% ./a.out 
ok
lulu:~/hs% ls -l a.out 
-rwxr-xr-x    1 martine  martine   4741690 2004-04-14 11:55 a.out