(advise tek-move :before foo nil
  (push (cons 'move (copylist arglist)) *p*))

(advise tek-draw :before foo nil
  (push (cons 'draw (copylist arglist)) *p*))