let eprintf fmt = dprintf (-1) fmt