(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))