$_=<>;s!.!map{print substr" .#
"x4,hex($&)/$_,1}4,1!eg