$/=$%=<>;$_=<>;s/\./a/;0while s/\.(.{$%}|)a|a(.{$%}|)\./a$1$2a/s;++$%;m{(\..*a|a.*\.)(?{$=-=$-=$=+1-"@+"/$%%$%+"@-"/$%-abs"@-"%$%-"@+"%$%+1})^}s;print$=