euler/setx/e407.c