:- prompt(_, '').
:- use_module(library(readutil)).
main:-
process,
and(t, t, t).
and(t, f, f).
and(f, t, f).
and(f, f, f).
and_list([], [], []).
and_list([H1|T1], [H2|T2], [R|RT]) :-
and(H1, H2, R),
and_list(T1, T2, RT).
process:-
and_list([t,t,t,f,t], [f,f,t,f,f], R),
:- main.
Oi0gc2V0X3Byb2xvZ19mbGFnKHZlcmJvc2Usc2lsZW50KS4KOi0gcHJvbXB0KF8sICcnKS4KOi0gdXNlX21vZHVsZShsaWJyYXJ5KHJlYWR1dGlsKSkuCgptYWluOi0KCXByb2Nlc3MsCgloYWx0LgoKCmFuZCh0LCB0LCB0KS4KYW5kKHQsIGYsIGYpLgphbmQoZiwgdCwgZikuCmFuZChmLCBmLCBmKS4KCmFuZF9saXN0KFtdLCBbXSwgW10pLgphbmRfbGlzdChbSDF8VDFdLCBbSDJ8VDJdLCBbUnxSVF0pIDotCiAgICBhbmQoSDEsIEgyLCBSKSwKICAgIGFuZF9saXN0KFQxLCBUMiwgUlQpLgoKCnByb2Nlc3M6LQoJYW5kX2xpc3QoW3QsdCx0LGYsdF0sIFtmLGYsdCxmLGZdLCBSKSwKCXdyaXRlKFIpLAoJbmwsCgl0cnVlLgoKOi0gbWFpbi4=