say ($_=^3+1 (-) (@($_=+<<get.words)Xdiv($!=[gcd] @$_)))>1??-1!!$!*.pick