showTime x = do
  cputime  <- getCPUTime
  writeDebugConsole $ "[" ++ show x ++ "] Now is: \n"
  writeDebugConsole $ "  " ++ show cputime ++ "\n"
  threadDelay 1000000 -- ~1sec
  showTime (x - 1)
showTime x = do
  cputime  <- getCPUTime
  writeDebugConsole $ "[" ++ show x ++ "] Now is: \n"
  writeDebugConsole $ "  " ++ show cputime ++ "\n"
  threadDelay 1000000 -- ~1sec
  showTime (x - 1)
showTime x = do
  cputime  <- getCPUTime
  writeDebugConsole $ "[" ++ show x ++ "] Now is: \n"
  writeDebugConsole $ "  " ++ show cputime ++ "\n"
  threadDelay 1000000 -- ~1sec
  showTime (x - 1)