adjmon
if (!adjmon(t, '+', 1, 0, 0))
if (!adjmon(t, '-', 1, 0, 0))
if (!adjmon(t, type, val, 0, 1))
if (!adjmon(t, type, val, 1, 1))