([){(%stdin)(r)file token not{quit}if}def{/Pass 0[1 sub dup 2 mul not[mul exch{[add}repeat le{/Fail}if =}loop