#/usr/bin/perl
    %p=("\040"=>"\137\057");
    $p{$p{"\040"}} = "\040";
    print@{[map{$o=$p{"\040"
    };@{[              map{(
    ($o=$              p{$o}
    )x$_)              }map{
    ord($_)-(ord("\40")*3)-1
    }split//]},"\n"}split/n/
    ,"uaqbnfdgcebcccbnebebc"
    ."ecc"
    ."gbn"
    ."dbe"
    ."bcb"
    ."ibibncdgdcbib"
    ."nbbnabnaauaub"
    ."ndd"
    ."ccg"
    ."cedebcbncbebe"
    ."bcbebcbebccnb"
    ."beb"
    ."ebc"
    ."bebcbebcbcbna"
    ."bebebecebebcb"
    ."ebna"]};# amen