sub{split//,'0'x6;$;--; for (grep{s@^00@@} unpack'B8'x28, join'', map{chr} '61312832204025636309525849183047200210040863630136021330'=~/../g ){ map{$_[($;+=1)%=6].=$_}/./g; for (@_) { length==8 && (print(pack'B8',$_) and ($_=0)) } }print"\n"}->()