В свое время во времена ДОС я на паскале набрал резидентную программку, которая начинала вместо набираемого текста афоризм из небольшой базы случайным образом выбранный печатать. К примеру прикольнулся над знакомым, сидит он себе так спокойненько печатает программку и вдруг видит, что вместо набираемых строк начинает набираться "встретимся под столом"
((lambda (x) (list x (list 'quote x))) '(lambda (x) (list x (list 'quote x))))