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