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