$_&&push@y,$_ for split/(.)\1*/,<>;for$p(0..1<<$#y){print$p&(1<<$#y-$_-1)?$y[$_]:''for 0..$#y;print'\x0d '}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page