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