128 bits by breadbox

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("\x09\371\x11\x02\235t\343[\330AV\305cV\210\\300",128).

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page