% -*- Prolog -*-
%
% Assert some code, execute it.
%
% $Id: 022,v 1.1 2000/07/22 12:25:07 peteg Exp $

:- dynamic(test/1).

main :-
	asserta( ( test(X) :- write(test(X)), nl ) ),
	test(1),
	test(2),
	test(3).
