(dotimes(i 99)(do((j 7(1- j)))((< j 0)0)(if(>(logand(ash 1 j)i)0)(write-char(aref #.(remove-duplicates(reverse(read-line)))j))))(terpri))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page