while(({push_less_than((ESI[]){1,1,POSINT_TAG}+2,a);*top_estack==TRUE_TAG;}))
{
if (({push_mod(a,(ESI[]){2,1,POSINT_TAG}+2); is0(a);}))
{
push_integer_quotient(a,(ESI[]){2,1,POSINT_TAG}+2);
a = top_estack;
}
else
{
push_product((ESI[]){3,1,POSINT_TAG}+2,a); push_sum(top_estack,(ESI[]){1,1,POSINT_TAG}+2);
a = top_estack;
}

while(({push_less_than((ESI[]){1,1,POSINT_TAG}+2,a);*top_estack==TRUE_TAG;}))
{
if (({push_mod(a,(ESI[]){2,1,POSINT_TAG}+2); is0(top_estack);}))
{
push_integer_quotient(a,(ESI[]){2,1,POSINT_TAG}+2);
a = top_estack;
}
else
{
push_product((ESI[]){3,1,POSINT_TAG}+2,a); push_sum(top_estack,(ESI[]){1,1,POSINT_TAG}+2);
a = top_estack;
}

#define USE_TI89
#define SAVE_SCREEN
#define MIN_AMS 202
#include <tigcclib.h>

void _main(void)
{
clrscr();
char buffer[616];
ESI a;
ESI n;
HANDLE handle;
printf ("Entrez un nombre entier : \n");
getsn(buffer, 615);
push_parse_text(buffer);
a = top_estack;
push0();
n = top_estack;
FontSetSys(0);
while(({push_less_than((ESQ[]){1,1,POSINT_TAG}+2,a);*top_estack==TRUE_TAG;}))
{
if (({push_mod(a,(ESQ[]){2,1,POSINT_TAG}+2); is0(top_estack);}))
{
push_integer_quotient(a,(ESQ[]){2,1,POSINT_TAG}+2); a = top_estack;
}
else
{
push_product((ESQ[]){3,1,POSINT_TAG}+2,a); push_sum(top_estack,(ESQ[]){1,1,POSINT_TAG}+2); a = top_estack;
}

handle = display_statements (a, 1, 1);
printf("\n%s", (char *)HeapDeref (handle));
HeapFree (handle);

push_arg_plus_1(n); n = top_estack;
}

handle = display_statements (n, 1, 1);
printf("\n[Etapes] : %s\n", (char *)HeapDeref (handle));
HeapFree (handle);

ST_helpMsg("Programmé par FloD (flod@laposte.net)");
if (ngetchx()==KEY_ENTER)
return;
}