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

2585299034889176057565275202887662511841595109265864278464891930593206623644838958220020389062939431

stdout

10714

stderr

strace