% Vertikal-horisontalprogrammet fra Bratkos bog, kap 2 vertical( seg(point(X,Y), point(X,Y1))). horizontal( seg(point(X,Y), point(X1,Y))).