b:-z,w(-,57).
c
(I
):-nl,I
=36;J
is I
+1,(I
=19,b
,c
(J
);I
>19,z
,c
(J
);I
>8,z
,(I
mod 3=:=0,w
(#
,56);tab
(56)),z
,c
(J
);z
,(I
mod 2=:=0,tab
(1),w
('* ',5),put
(42),tab
(1);w
(' *',5),tab
(3)),(0=:=I
mod 3,w
(#
,33);tab
(33)),z
,c
(J
)).z:-put(124).
w(A,B):-writef('%r',[A,B]).
YTotcHV0KDQ4KSxubCxiLGMoMCkuCmI6LXosdygtLDU3KS4KYyhJKTotbmwsST0zNjtKIGlzIEkrMSwoST0xOSxiLGMoSik7ST4xOSx6LGMoSik7ST44LHosKEkgbW9kIDM9Oj0wLHcoIyw1Nik7dGFiKDU2KSkseixjKEopO3osKEkgbW9kIDI9Oj0wLHRhYigxKSx3KCcqICAgJyw1KSxwdXQoNDIpLHRhYigxKTt3KCcgICAqJyw1KSx0YWIoMykpLCgwPTo9SSBtb2QgMyx3KCMsMzMpO3RhYigzMykpLHosYyhKKSkuCno6LXB1dCgxMjQpLgp3KEEsQik6LXdyaXRlZignJXInLFtBLEJdKS4=