The basic program from Lucas