Rewrite PP Lucas code.  About same speed, but simpler.