0 -2 1/s(%stdin)(r)file 1001 string readline pop def s length 1 sub{s exch 3{getinterval{1 and add 2 mul}forall neg 8 and 0 ne{stop}if( )}stopped{(#)}if print 0}for