#!perl -p
substr$_,60-($x=75442>>-$.*3&7)/2,$x,"#"x$x