rail, 230 bytes

Result

WA

Code [DL]

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

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

$ 'main'
 \
  \-4{pzs}0{incn}1{incn}2{incn}1{incn}1{incn}2{incn}ooooo#

stdin

9312165502127035524163321164088894327809084155735169416745865456807875923129157166229795745715350689

stdout

1320

stderr

Crash: Stack underflow

strace