#!perl -ln for$r(!//..4){$_=join 0,map{unpack b7,substr': 8: ',$_*5+$r}(0)x(~-$'/5),$'%5;y/01/ */;print}