#!perl -ln $$_=@a=A..T}{$b^x&&map{print$;if${$;=$a.$_}<grep$$_,$b.$_,$a[0].$_,$a.~-$_,$a.($_+1)}1..19while$b=$a,$a=shift@a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page