sub{split q,,,q;0;x6;$;--;for(grep s,^00,,,unpack'B8'x28,join'',map chr,q,61 312832204025636309525849183047200210040863630136021330,=~m,..,g){map$_[($;+= 1)%=6].=$_,m,.,g;@{[m,.,g]}-8???:($_=-1+print pack'B8',$_)for@_}print$/}->()