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