ubah ke binary

binary(0, [0]).
binary(1, [1]).

binary(X, L):- X>1,
X1 is X//2,
binary(X1, L1),
S is X mod 2,
binary(S, Sisa),
append(L1,Sisa, L).