#!/usr/bin/perl -wT
map{map{print$_?"$_":" "}split//,sprintf"%.8b\n",$_} #*YaPH*#
((0,28,48,54,60,62,76,126)[3,1,6,7,1,3,5,3,1,3,4,2,3,3,5,3]);