piet, 259 bytes

Result

WA

Code [DL]

$ 'j'
 \             /-(!c!)(n)1s{incn}(c)#
  \-(!n!)(n)0q<
               \-1a#

$ 'k'
 \             /-(n)1s{pzs}0#
  \-(!n!)(n)0q<
               \-#

$ 'main'   /-{j}i-\
 \         |      |
  \        \   /--/
   \-25m{k}--e<
               \--oooooooooo#

stdin

0565924787068347826756382694607638208145245965741094540048894196685357746484754163449775729423586260

stdout

stderr

cannot read from `/volume/CODE'; reason: unknown PPM format

strace