rail, 248 bytes

Result

WA

Code [DL]

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

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

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

stdin

8751845002291970345104557113686397662197640697970970751757207274094334581717568345901270832116903390

stdout

13127

stderr

strace