[1[.runstdin]{-1 1{/n exch def 0][0 2 index{n mul add dup 10 mod exch 10
idiv}forall 2{-99 1{}for}repeat}for counttomark{=only}repeat()=[1}forall