$_,*a=*$<
4.e{a=a.m{|s|s.j.su($_.hm,' '*~/
/).rv.m}.tr}
pr a