In an effort to learn threading in haskell, I will solve the heat distribution problem without and with threading.