euler/e138.c