:- module(test_result,[get_result/1]).

get_result(R) :-
	tuples(T),
	R=result(tuples(T)).

tuples(R) :-
	R=	[	[var(o)='dos',var(s)='2'],
			[var(o)='win95',var(s)='300'],
			[var(o)='linux',var(s)='200']
		].

