print$x+=~$x%2?-$x/2:2**++$q%$q-2%$q?redo:$q,$/for 0..99