map{/.+(?{$$_[length$&].=0|1==grep$&%$_<1,2..$&})^/;print@$_,$/}<>