($N,$K,$Q)=glob<>; @_=(0)x$K; for(reverse<>){ / .* /; if(!${$`}[$&]++){ ++${$`}; $_[$'-1]+=$N-${$`^v17} } } $_[0]=$N*$N; $_[0]-=$_ for@_[1..$K-1]; $,=$/; print@_