euler/e13.c