parity_char
#define parity_char(x) pstep(pstep(pstep((x),4),2),1)
#define parity_char(x) pstep(pstep(pstep((x), 4), 2), 1)