1189 1682 0/s{dup log 1 4{pop( )print}for dup =only}def 1 10{(A)print dup =only
9 le{( )print}if 2 idiv s(mm x)print exch s(mm)=}for