Update Main.hs

Fix threadDelay (microseconds)