add threadCapability :: ThreadId -> IO (Int,Bool)