$p = pos($a) ? 1 : 0;