#!/usr/bin/perl
@l=split / /, "a01001010 b01111100 c01011111 b01111100 d00110101 e01110100 q0 f00110100 b01111100 g01011100 b01111100 h00110000 e01110100 b01111100 i00101101 b01111100 j00110011 k01010010 q0 l01010000 j00110011 m01110010 b01111100 q0 n01001000 f00110100 o00111110 p00111100 h00110000 k01010010";@n=split //, "abcbdeqfbgbhebibjkqljmbqnfophk";my %g;for(@l){($e,$r)=($_=~m/^(\w)(\d+)$/);$g{"$e"}=$r;}for(@n){print(pack("B8",$g{$_}))if($g{$_})||print " ";}print "\n";