/@{forall}def[1[[.runstdin]{-1 1{1}for]{/_ exch def][0 2 index{_ mul add dup 10 mod exch 10 idiv}@ -99 1{}for}@]aload{pop =only}@()=[1[}@