preved(N) :- prev(N,N,V).
    prev(N,N,V) :- write(V).
    prev(N,Z,V) :- Z2 is Z//2, X is Z mod 2, prev(N,Z2,[X|V]).