dim o(123):q=64:do:p=peek(0)+1:o(p)=o(p)+1:q=q+!p:if o(q)?chr$(q-1),":",o(q)using"###"
loop