add old lisp apg example