m:-readln([A]),A/B,write(B).
0/false.
1/true.