# test
($h,$w,$/)=glob<>;$_=<>;
/^([#.]{$w}\n){$h}$/ or die;