set_word
set_word(&D, 1);
set_word(&A, 1);
set_word(&D, 1);
set_word(&q, 1);
set_word(&res, 1);
set_word(a, 1);
set_word(&res, 1);
set_word(&b, ltm_prime_tab[ix]);
set_word(a, w);