10 1 1e4{dup 60 exch(.....)cvs{2 copy le{0}if exch pop}forall 0 gt{=}if}for