[Haskell-cafe] Kill forked threads in ghci

Is there a way in ghci to kill all running background processes without quitting ghci itself? E.g. if I do

forkIO . forever $ print 5 >> threadDelay 1000000

If I don't have the ThreadId, is there any way for me to stop printing "5"s without killing ghci? tom