m([A|Z],T):-A<T,put(48),U is T/2,m([A|Z],U);format('~2r ',[A]),Z=[];m(Z,128).
m:-m("	\371\235t\343[\330AV\305cV\210\\300",128).