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