Create x-adic.lisp