($r,$=,$h,$w)=glob<>.<>;@a=map[/./g],<>;($h,$w,@a)=($w,$h,map[map$a[$h-$_][$'],/^/..$h],0..9)for 1..$r/90;//,print map$a[$'/$=][$_/$=]||$/,0..$w*$=for 0..99