#!perl -nla for$c(0..4){@o=map{$p=unpack b7;$p=~y/01/ */;$p}(qw/ 8 : /," ")[map{substr"4000041110412104135041354",$_,1}(map{5*$_-5+$c}(map{5}1..$F[0]/5),$F[0]%5?$F[0]%5:())];print"@o"}