$o=(" "x16 .Q)x19;@d=unpack"C*","A¸ß�¸tšGCEDFAc…
";for($\,<>){$l+=65-pop@d;s#.#substr$o,$l+=17*!$f+$f,1,$&#eg;$f^=1}$o=~s/ *Q/
/g;print$o