some test bogolisp scripts