tickThread :: IO ()
tickThread = do
  writeDebugConsole "Tick!\n"
  threadDelay 1000000
tickThread :: IO ()
tickThread = do
  writeDebugConsole "Tick!\n"
  threadDelay 1000000
tickThread = do
  writeDebugConsole "Tick!\n"
  threadDelay 1000000