#!perl -l sub f{/((.).*)(.)(??{$"x($2!=$3&length$1!=abs$2-$3)})/?0:/.{@ARGV}/?print:map&f,$_.1..$_."@ARGV"}f