$_=unpack"B*",q;_⪐U*_⪐U';;%0=qw;001 JH 0000 AJA 0001 PH 01 JA 1 PP;;$"="|";@0=keys%0;chop;s&\G(@0)&$0{$1}≥y;JAPH0; *=\n;d;print