($n,$k)=glob<>;$R=$C=$n;map{--${$`},$o[$']+=${R^C^$`}if/ .* />$h{$`.$&}++}reverse<>;print$o[$_]+$R*$C,$R=$/for 1..$k