yap-6.3/docs/index/Benchmarks/sg_cyl.P

/* 
The cylinder data can be thought of as a rectangular matrix of
elements where each element in row $N$ has links to a certain number
of elements in row $N+1$. The 24x24x2 cylinder then, is an array of
24x24 nodes, where each of the nodes in each row (except the last) is
connected to two elements in the next higher row. Executing this query
using tabling is more than three orders of magnitude faster than using
Prolog, since Prolog will search a complete binary tree of depth 24.
*/

% -------------------------------------------

abolish_table_info :- at(same_generation/2).

time :- statistics(runtime,_), benchmark, fail;
	statistics(runtime,[_,T]), write(T).

benchmark :- same_generation(_,_).

% -------------------------------------------

:- table same_generation/2.

same_generation(X,X) :- cyl(X,_).
same_generation(X,X) :- cyl(_,X).
same_generation(X,Y) :- cyl(X,Z), same_generation(Z,W), cyl(Y,W).

cyl(1,30).
cyl(1,40).
cyl(2,43).
cyl(2,34).
cyl(3,30).
cyl(3,33).
cyl(4,45).
cyl(4,40).
cyl(5,31).
cyl(5,45).
cyl(6,31).
cyl(6,48).
cyl(7,31).
cyl(7,41).
cyl(8,25).
cyl(8,30).
cyl(9,40).
cyl(9,31).
cyl(10,35).
cyl(10,46).
cyl(11,32).
cyl(11,28).
cyl(12,35).
cyl(12,43).
cyl(13,46).
cyl(13,48).
cyl(14,39).
cyl(14,35).
cyl(15,46).
cyl(15,28).
cyl(16,28).
cyl(16,42).
cyl(17,33).
cyl(17,25).
cyl(18,46).
cyl(18,27).
cyl(19,38).
cyl(19,47).
cyl(20,27).
cyl(20,41).
cyl(21,34).
cyl(21,38).
cyl(22,27).
cyl(22,33).
cyl(23,26).
cyl(23,35).
cyl(24,36).
cyl(24,25).
cyl(25,70).
cyl(25,52).
cyl(26,59).
cyl(26,71).
cyl(27,61).
cyl(27,58).
cyl(28,61).
cyl(28,54).
cyl(29,63).
cyl(29,70).
cyl(30,58).
cyl(30,53).
cyl(31,56).
cyl(31,60).
cyl(32,58).
cyl(32,50).
cyl(33,62).
cyl(33,66).
cyl(34,55).
cyl(34,72).
cyl(35,63).
cyl(35,58).
cyl(36,55).
cyl(36,64).
cyl(37,56).
cyl(37,58).
cyl(38,68).
cyl(38,61).
cyl(39,64).
cyl(39,52).
cyl(40,57).
cyl(40,70).
cyl(41,69).
cyl(41,55).
cyl(42,62).
cyl(42,53).
cyl(43,68).
cyl(43,65).
cyl(44,56).
cyl(44,62).
cyl(45,67).
cyl(45,71).
cyl(46,71).
cyl(46,66).
cyl(47,61).
cyl(47,60).
cyl(48,60).
cyl(48,54).
cyl(49,93).
cyl(49,88).
cyl(50,90).
cyl(50,93).
cyl(51,95).
cyl(51,92).
cyl(52,93).
cyl(52,94).
cyl(53,83).
cyl(53,90).
cyl(54,78).
cyl(54,79).
cyl(55,79).
cyl(55,92).
cyl(56,96).
cyl(56,94).
cyl(57,94).
cyl(57,80).
cyl(58,79).
cyl(58,83).
cyl(59,75).
cyl(59,96).
cyl(60,86).
cyl(60,79).
cyl(61,85).
cyl(61,75).
cyl(62,82).
cyl(62,95).
cyl(63,85).
cyl(63,78).
cyl(64,92).
cyl(64,86).
cyl(65,76).
cyl(65,78).
cyl(66,78).
cyl(66,81).
cyl(67,96).
cyl(67,78).
cyl(68,88).
cyl(68,77).
cyl(69,86).
cyl(69,90).
cyl(70,93).
cyl(70,80).
cyl(71,92).
cyl(71,74).
cyl(72,88).
cyl(72,81).
cyl(73,113).
cyl(73,116).
cyl(74,101).
cyl(74,100).
cyl(75,113).
cyl(75,109).
cyl(76,112).
cyl(76,98).
cyl(77,109).
cyl(77,108).
cyl(78,112).
cyl(78,117).
cyl(79,101).
cyl(79,110).
cyl(80,110).
cyl(80,119).
cyl(81,108).
cyl(81,98).
cyl(82,111).
cyl(82,113).
cyl(83,116).
cyl(83,111).
cyl(84,114).
cyl(84,103).
cyl(85,97).
cyl(85,114).
cyl(86,107).
cyl(86,120).
cyl(87,116).
cyl(87,105).
cyl(88,99).
cyl(88,105).
cyl(89,118).
cyl(89,110).
cyl(90,104).
cyl(90,108).
cyl(91,98).
cyl(91,106).
cyl(92,100).
cyl(92,108).
cyl(93,117).
cyl(93,114).
cyl(94,115).
cyl(94,118).
cyl(95,99).
cyl(95,108).
cyl(96,111).
cyl(96,98).
cyl(97,125).
cyl(97,132).
cyl(98,134).
cyl(98,131).
cyl(99,124).
cyl(99,136).
cyl(100,122).
cyl(100,129).
cyl(101,140).
cyl(101,125).
cyl(102,142).
cyl(102,137).
cyl(103,137).
cyl(103,141).
cyl(104,135).
cyl(104,132).
cyl(105,126).
cyl(105,137).
cyl(106,142).
cyl(106,128).
cyl(107,123).
cyl(107,143).
cyl(108,126).
cyl(108,132).
cyl(109,128).
cyl(109,130).
cyl(110,124).
cyl(110,136).
cyl(111,123).
cyl(111,141).
cyl(112,128).
cyl(112,142).
cyl(113,130).
cyl(113,128).
cyl(114,144).
cyl(114,139).
cyl(115,141).
cyl(115,139).
cyl(116,134).
cyl(116,126).
cyl(117,135).
cyl(117,131).
cyl(118,137).
cyl(118,142).
cyl(119,133).
cyl(119,125).
cyl(120,135).
cyl(120,139).
cyl(121,154).
cyl(121,151).
cyl(122,150).
cyl(122,156).
cyl(123,158).
cyl(123,168).
cyl(124,160).
cyl(124,168).
cyl(125,159).
cyl(125,161).
cyl(126,167).
cyl(126,156).
cyl(127,151).
cyl(127,167).
cyl(128,164).
cyl(128,152).
cyl(129,154).
cyl(129,158).
cyl(130,164).
cyl(130,150).
cyl(131,165).
cyl(131,155).
cyl(132,154).
cyl(132,157).
cyl(133,163).
cyl(133,161).
cyl(134,147).
cyl(134,160).
cyl(135,156).
cyl(135,148).
cyl(136,153).
cyl(136,157).
cyl(137,159).
cyl(137,152).
cyl(138,149).
cyl(138,152).
cyl(139,161).
cyl(139,157).
cyl(140,167).
cyl(140,161).
cyl(141,168).
cyl(141,145).
cyl(142,161).
cyl(142,160).
cyl(143,146).
cyl(143,150).
cyl(144,160).
cyl(144,163).
cyl(145,184).
cyl(145,171).
cyl(146,187).
cyl(146,171).
cyl(147,179).
cyl(147,182).
cyl(148,185).
cyl(148,180).
cyl(149,187).
cyl(149,174).
cyl(150,175).
cyl(150,190).
cyl(151,176).
cyl(151,185).
cyl(152,169).
cyl(152,182).
cyl(153,181).
cyl(153,188).
cyl(154,190).
cyl(154,179).
cyl(155,184).
cyl(155,187).
cyl(156,169).
cyl(156,184).
cyl(157,183).
cyl(157,186).
cyl(158,174).
cyl(158,179).
cyl(159,175).
cyl(159,172).
cyl(160,190).
cyl(160,189).
cyl(161,180).
cyl(161,175).
cyl(162,192).
cyl(162,182).
cyl(163,179).
cyl(163,175).
cyl(164,174).
cyl(164,181).
cyl(165,178).
cyl(165,185).
cyl(166,170).
cyl(166,169).
cyl(167,183).
cyl(167,178).
cyl(168,180).
cyl(168,181).
cyl(169,213).
cyl(169,207).
cyl(170,206).
cyl(170,203).
cyl(171,195).
cyl(171,209).
cyl(172,214).
cyl(172,197).
cyl(173,205).
cyl(173,206).
cyl(174,212).
cyl(174,214).
cyl(175,201).
cyl(175,204).
cyl(176,206).
cyl(176,200).
cyl(177,202).
cyl(177,207).
cyl(178,202).
cyl(178,203).
cyl(179,216).
cyl(179,196).
cyl(180,211).
cyl(180,197).
cyl(181,193).
cyl(181,207).
cyl(182,196).
cyl(182,194).
cyl(183,215).
cyl(183,199).
cyl(184,203).
cyl(184,204).
cyl(185,196).
cyl(185,208).
cyl(186,195).
cyl(186,212).
cyl(187,193).
cyl(187,194).
cyl(188,204).
cyl(188,200).
cyl(189,205).
cyl(189,201).
cyl(190,210).
cyl(190,194).
cyl(191,193).
cyl(191,209).
cyl(192,208).
cyl(192,209).
cyl(193,227).
cyl(193,223).
cyl(194,240).
cyl(194,227).
cyl(195,239).
cyl(195,230).
cyl(196,228).
cyl(196,230).
cyl(197,234).
cyl(197,221).
cyl(198,240).
cyl(198,222).
cyl(199,221).
cyl(199,235).
cyl(200,230).
cyl(200,235).
cyl(201,230).
cyl(201,225).
cyl(202,238).
cyl(202,217).
cyl(203,224).
cyl(203,217).
cyl(204,221).
cyl(204,234).
cyl(205,228).
cyl(205,217).
cyl(206,221).
cyl(206,230).
cyl(207,220).
cyl(207,240).
cyl(208,224).
cyl(208,219).
cyl(209,217).
cyl(209,237).
cyl(210,232).
cyl(210,239).
cyl(211,235).
cyl(211,223).
cyl(212,228).
cyl(212,220).
cyl(213,229).
cyl(213,234).
cyl(214,230).
cyl(214,228).
cyl(215,223).
cyl(215,219).
cyl(216,221).
cyl(216,240).
cyl(217,243).
cyl(217,256).
cyl(218,246).
cyl(218,252).
cyl(219,250).
cyl(219,247).
cyl(220,257).
cyl(220,243).
cyl(221,245).
cyl(221,261).
cyl(222,254).
cyl(222,245).
cyl(223,258).
cyl(223,252).
cyl(224,244).
cyl(224,242).
cyl(225,253).
cyl(225,250).
cyl(226,263).
cyl(226,248).
cyl(227,251).
cyl(227,262).
cyl(228,249).
cyl(228,248).
cyl(229,258).
cyl(229,257).
cyl(230,258).
cyl(230,256).
cyl(231,262).
cyl(231,254).
cyl(232,242).
cyl(232,251).
cyl(233,244).
cyl(233,257).
cyl(234,256).
cyl(234,260).
cyl(235,262).
cyl(235,253).
cyl(236,259).
cyl(236,264).
cyl(237,261).
cyl(237,242).
cyl(238,260).
cyl(238,243).
cyl(239,260).
cyl(239,246).
cyl(240,254).
cyl(240,263).
cyl(241,265).
cyl(241,269).
cyl(242,283).
cyl(242,267).
cyl(243,270).
cyl(243,288).
cyl(244,280).
cyl(244,278).
cyl(245,271).
cyl(245,287).
cyl(246,284).
cyl(246,277).
cyl(247,288).
cyl(247,281).
cyl(248,280).
cyl(248,277).
cyl(249,273).
cyl(249,270).
cyl(250,277).
cyl(250,270).
cyl(251,286).
cyl(251,280).
cyl(252,279).
cyl(252,268).
cyl(253,283).
cyl(253,279).
cyl(254,277).
cyl(254,276).
cyl(255,265).
cyl(255,285).
cyl(256,277).
cyl(256,276).
cyl(257,284).
cyl(257,283).
cyl(258,270).
cyl(258,271).
cyl(259,277).
cyl(259,279).
cyl(260,284).
cyl(260,268).
cyl(261,267).
cyl(261,279).
cyl(262,271).
cyl(262,279).
cyl(263,268).
cyl(263,273).
cyl(264,272).
cyl(264,277).
cyl(265,297).
cyl(265,300).
cyl(266,302).
cyl(266,304).
cyl(267,292).
cyl(267,308).
cyl(268,296).
cyl(268,307).
cyl(269,306).
cyl(269,304).
cyl(270,300).
cyl(270,308).
cyl(271,293).
cyl(271,291).
cyl(272,294).
cyl(272,305).
cyl(273,293).
cyl(273,291).
cyl(274,303).
cyl(274,312).
cyl(275,294).
cyl(275,299).
cyl(276,292).
cyl(276,305).
cyl(277,303).
cyl(277,299).
cyl(278,297).
cyl(278,302).
cyl(279,302).
cyl(279,294).
cyl(280,291).
cyl(280,289).
cyl(281,294).
cyl(281,307).
cyl(282,293).
cyl(282,296).
cyl(283,308).
cyl(283,294).
cyl(284,302).
cyl(284,310).
cyl(285,289).
cyl(285,308).
cyl(286,292).
cyl(286,307).
cyl(287,293).
cyl(287,295).
cyl(288,296).
cyl(288,292).
cyl(289,322).
cyl(289,331).
cyl(290,333).
cyl(290,313).
cyl(291,326).
cyl(291,314).
cyl(292,334).
cyl(292,317).
cyl(293,317).
cyl(293,315).
cyl(294,333).
cyl(294,331).
cyl(295,321).
cyl(295,335).
cyl(296,314).
cyl(296,322).
cyl(297,321).
cyl(297,322).
cyl(298,332).
cyl(298,316).
cyl(299,321).
cyl(299,330).
cyl(300,320).
cyl(300,315).
cyl(301,317).
cyl(301,326).
cyl(302,335).
cyl(302,318).
cyl(303,336).
cyl(303,325).
cyl(304,325).
cyl(304,322).
cyl(305,332).
cyl(305,321).
cyl(306,335).
cyl(306,325).
cyl(307,323).
cyl(307,326).
cyl(308,316).
cyl(308,320).
cyl(309,321).
cyl(309,336).
cyl(310,322).
cyl(310,328).
cyl(311,332).
cyl(311,335).
cyl(312,332).
cyl(312,322).
cyl(313,359).
cyl(313,347).
cyl(314,348).
cyl(314,349).
cyl(315,350).
cyl(315,352).
cyl(316,351).
cyl(316,342).
cyl(317,354).
cyl(317,349).
cyl(318,340).
cyl(318,358).
cyl(319,359).
cyl(319,339).
cyl(320,357).
cyl(320,355).
cyl(321,357).
cyl(321,341).
cyl(322,344).
cyl(322,355).
cyl(323,340).
cyl(323,338).
cyl(324,342).
cyl(324,356).
cyl(325,355).
cyl(325,342).
cyl(326,345).
cyl(326,353).
cyl(327,345).
cyl(327,339).
cyl(328,360).
cyl(328,356).
cyl(329,358).
cyl(329,351).
cyl(330,359).
cyl(330,353).
cyl(331,341).
cyl(331,356).
cyl(332,344).
cyl(332,339).
cyl(333,351).
cyl(333,355).
cyl(334,355).
cyl(334,359).
cyl(335,350).
cyl(335,339).
cyl(336,342).
cyl(336,354).
cyl(337,365).
cyl(337,374).
cyl(338,364).
cyl(338,384).
cyl(339,373).
cyl(339,375).
cyl(340,380).
cyl(340,368).
cyl(341,372).
cyl(341,362).
cyl(342,368).
cyl(342,367).
cyl(343,364).
cyl(343,369).
cyl(344,382).
cyl(344,373).
cyl(345,367).
cyl(345,375).
cyl(346,370).
cyl(346,372).
cyl(347,363).
cyl(347,381).
cyl(348,371).
cyl(348,365).
cyl(349,372).
cyl(349,364).
cyl(350,379).
cyl(350,372).
cyl(351,381).
cyl(351,364).
cyl(352,381).
cyl(352,362).
cyl(353,370).
cyl(353,377).
cyl(354,373).
cyl(354,362).
cyl(355,367).
cyl(355,382).
cyl(356,370).
cyl(356,384).
cyl(357,371).
cyl(357,372).
cyl(358,361).
cyl(358,378).
cyl(359,371).
cyl(359,366).
cyl(360,382).
cyl(360,364).
cyl(361,407).
cyl(361,408).
cyl(362,392).
cyl(362,393).
cyl(363,393).
cyl(363,394).
cyl(364,387).
cyl(364,400).
cyl(365,397).
cyl(365,392).
cyl(366,400).
cyl(366,408).
cyl(367,401).
cyl(367,388).
cyl(368,389).
cyl(368,394).
cyl(369,388).
cyl(369,399).
cyl(370,405).
cyl(370,385).
cyl(371,398).
cyl(371,397).
cyl(372,404).
cyl(372,387).
cyl(373,404).
cyl(373,390).
cyl(374,396).
cyl(374,397).
cyl(375,401).
cyl(375,397).
cyl(376,399).
cyl(376,395).
cyl(377,397).
cyl(377,391).
cyl(378,392).
cyl(378,385).
cyl(379,390).
cyl(379,386).
cyl(380,408).
cyl(380,394).
cyl(381,398).
cyl(381,403).
cyl(382,385).
cyl(382,403).
cyl(383,385).
cyl(383,386).
cyl(384,397).
cyl(384,387).
cyl(385,418).
cyl(385,429).
cyl(386,419).
cyl(386,415).
cyl(387,413).
cyl(387,429).
cyl(388,415).
cyl(388,418).
cyl(389,429).
cyl(389,417).
cyl(390,417).
cyl(390,424).
cyl(391,409).
cyl(391,425).
cyl(392,418).
cyl(392,409).
cyl(393,428).
cyl(393,414).
cyl(394,427).
cyl(394,431).
cyl(395,429).
cyl(395,430).
cyl(396,418).
cyl(396,419).
cyl(397,432).
cyl(397,419).
cyl(398,420).
cyl(398,414).
cyl(399,419).
cyl(399,412).
cyl(400,415).
cyl(400,410).
cyl(401,420).
cyl(401,424).
cyl(402,426).
cyl(402,412).
cyl(403,431).
cyl(403,419).
cyl(404,428).
cyl(404,422).
cyl(405,417).
cyl(405,428).
cyl(406,422).
cyl(406,411).
cyl(407,424).
cyl(407,427).
cyl(408,410).
cyl(408,416).
cyl(409,436).
cyl(409,435).
cyl(410,442).
cyl(410,439).
cyl(411,456).
cyl(411,436).
cyl(412,449).
cyl(412,456).
cyl(413,453).
cyl(413,449).
cyl(414,440).
cyl(414,434).
cyl(415,436).
cyl(415,437).
cyl(416,433).
cyl(416,452).
cyl(417,433).
cyl(417,444).
cyl(418,436).
cyl(418,452).
cyl(419,445).
cyl(419,444).
cyl(420,451).
cyl(420,455).
cyl(421,439).
cyl(421,455).
cyl(422,445).
cyl(422,454).
cyl(423,456).
cyl(423,445).
cyl(424,445).
cyl(424,448).
cyl(425,434).
cyl(425,448).
cyl(426,442).
cyl(426,440).
cyl(427,437).
cyl(427,438).
cyl(428,453).
cyl(428,446).
cyl(429,437).
cyl(429,452).
cyl(430,444).
cyl(430,438).
cyl(431,449).
cyl(431,443).
cyl(432,442).
cyl(432,450).
cyl(433,469).
cyl(433,476).
cyl(434,476).
cyl(434,479).
cyl(435,478).
cyl(435,461).
cyl(436,467).
cyl(436,471).
cyl(437,479).
cyl(437,468).
cyl(438,474).
cyl(438,467).
cyl(439,459).
cyl(439,473).
cyl(440,458).
cyl(440,459).
cyl(441,467).
cyl(441,458).
cyl(442,470).
cyl(442,472).
cyl(443,477).
cyl(443,460).
cyl(444,475).
cyl(444,474).
cyl(445,471).
cyl(445,480).
cyl(446,477).
cyl(446,474).
cyl(447,472).
cyl(447,476).
cyl(448,469).
cyl(448,474).
cyl(449,465).
cyl(449,471).
cyl(450,465).
cyl(450,459).
cyl(451,458).
cyl(451,475).
cyl(452,457).
cyl(452,462).
cyl(453,478).
cyl(453,459).
cyl(454,472).
cyl(454,461).
cyl(455,469).
cyl(455,479).
cyl(456,457).
cyl(456,458).
cyl(457,482).
cyl(457,500).
cyl(458,492).
cyl(458,488).
cyl(459,488).
cyl(459,489).
cyl(460,483).
cyl(460,500).
cyl(461,504).
cyl(461,486).
cyl(462,491).
cyl(462,492).
cyl(463,499).
cyl(463,493).
cyl(464,483).
cyl(464,502).
cyl(465,495).
cyl(465,502).
cyl(466,483).
cyl(466,487).
cyl(467,491).
cyl(467,503).
cyl(468,492).
cyl(468,498).
cyl(469,501).
cyl(469,504).
cyl(470,484).
cyl(470,487).
cyl(471,502).
cyl(471,487).
cyl(472,499).
cyl(472,490).
cyl(473,500).
cyl(473,495).
cyl(474,481).
cyl(474,487).
cyl(475,488).
cyl(475,494).
cyl(476,488).
cyl(476,500).
cyl(477,492).
cyl(477,489).
cyl(478,504).
cyl(478,481).
cyl(479,502).
cyl(479,491).
cyl(480,497).
cyl(480,487).
cyl(481,528).
cyl(481,522).
cyl(482,522).
cyl(482,520).
cyl(483,516).
cyl(483,515).
cyl(484,526).
cyl(484,514).
cyl(485,511).
cyl(485,508).
cyl(486,512).
cyl(486,524).
cyl(487,525).
cyl(487,520).
cyl(488,508).
cyl(488,520).
cyl(489,526).
cyl(489,527).
cyl(490,517).
cyl(490,505).
cyl(491,514).
cyl(491,512).
cyl(492,524).
cyl(492,522).
cyl(493,524).
cyl(493,517).
cyl(494,520).
cyl(494,518).
cyl(495,516).
cyl(495,508).
cyl(496,508).
cyl(496,525).
cyl(497,523).
cyl(497,505).
cyl(498,507).
cyl(498,505).
cyl(499,510).
cyl(499,523).
cyl(500,522).
cyl(500,518).
cyl(501,511).
cyl(501,517).
cyl(502,506).
cyl(502,513).
cyl(503,505).
cyl(503,514).
cyl(504,525).
cyl(504,519).
cyl(505,547).
cyl(505,534).
cyl(506,551).
cyl(506,538).
cyl(507,538).
cyl(507,530).
cyl(508,551).
cyl(508,544).
cyl(509,550).
cyl(509,551).
cyl(510,529).
cyl(510,539).
cyl(511,544).
cyl(511,549).
cyl(512,543).
cyl(512,549).
cyl(513,540).
cyl(513,533).
cyl(514,551).
cyl(514,550).
cyl(515,536).
cyl(515,547).
cyl(516,544).
cyl(516,531).
cyl(517,535).
cyl(517,549).
cyl(518,546).
cyl(518,542).
cyl(519,537).
cyl(519,547).
cyl(520,547).
cyl(520,544).
cyl(521,531).
cyl(521,544).
cyl(522,533).
cyl(522,530).
cyl(523,538).
cyl(523,546).
cyl(524,541).
cyl(524,531).
cyl(525,530).
cyl(525,533).
cyl(526,530).
cyl(526,529).
cyl(527,550).
cyl(527,529).
cyl(528,541).
cyl(528,534).
cyl(529,564).
cyl(529,574).
cyl(530,554).
cyl(530,564).
cyl(531,564).
cyl(531,556).
cyl(532,569).
cyl(532,554).
cyl(533,561).
cyl(533,566).
cyl(534,565).
cyl(534,576).
cyl(535,570).
cyl(535,558).
cyl(536,572).
cyl(536,571).
cyl(537,555).
cyl(537,569).
cyl(538,564).
cyl(538,555).
cyl(539,558).
cyl(539,566).
cyl(540,571).
cyl(540,576).
cyl(541,567).
cyl(541,561).
cyl(542,573).
cyl(542,570).
cyl(543,576).
cyl(543,565).
cyl(544,572).
cyl(544,565).
cyl(545,553).
cyl(545,554).
cyl(546,556).
cyl(546,574).
cyl(547,553).
cyl(547,575).
cyl(548,571).
cyl(548,573).
cyl(549,556).
cyl(549,574).
cyl(550,575).
cyl(550,555).
cyl(551,558).
cyl(551,569).
cyl(552,569).
cyl(552,564).
% -------------------------------------------