rail, 224 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

8737552157799325412828463487816891676540161752933592006954513896369045115371546381579501870207484719

stdout

7137

stderr

strace