graf(jeden,dwa).
graf(dwa,trzy).
graf(trzy,jeden).
graf(jeden,cztery).
 
:- [graph2].
rysuj :-
        open(pipe('dot -T png | display'), write, A),
        dotgen(A, graf/2),
        close(A).
 
rysuj_w :-
        open(pipe('dot -T png | display &'), write, A),
        dotgen(A, graf/2),
        close(A).