graf(jeden,dwa).
graf(dwa,trzy).
graf(trzy,jeden).
graf(jeden,cztery).

:- [graph].

rysuj :- 
  tell(pipe('dot -T png | display')),
  dotgen(graf/2),
  told.

rysuj_w :- 
  tell(pipe('dot -T png | display &')),
  dotgen(graf/2),
  told.