((/arithmetic-5/lib/floor-mod/mod-expt-fast.lisp::mod-expt-fast-1 (nil nil nil nil (if) nil nil) ((acc) nil (zp) (let) nil nil nil) ((i (floor-i-by-2 (ash i -1))) nil nil nil (if) nil nil) (nil nil (oddp) nil nil (recursive-call recursive-call) nil) ((i floor-i-by-2 n floor-i-by-2 n acc) nil nil (mod mod mod) nil nil nil) ((n n n) nil nil (* * *) nil nil nil) ((a a a acc a a) nil nil nil nil nil nil)) (/arithmetic-5/lib/floor-mod/mod-expt-fast.lisp::mod-expt-fast (nil nil nil nil (if) nil nil) (nil nil nil (mod) (and) (mod-expt-fast-1) nil) ((a i n n) (1) (integerp integerp) (< expt) nil nil nil) ((a n n a i) (0) nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil) (nil nil nil nil nil nil nil)))