E38/euler38.c