#!/usr/bin/perl -- -*- cperl -*-
$%=pop||$=/5;$|=1;sub ::{if(@_){my@b=map{my$a=ord(shift)-32;join'',map
{($a&(2**$_))?'#':' '}0..5}1..5;my%x=(n,::(@_),b,[@b]);push@x,\%x;\%x}
else{$x[0]}}$x=::(split//,'@@@B<<BBB<BFJRB<B^BB.2B2.<B^BB.2>B><ZJZ<.2'
.'>B>>B>2B^(((^<"ZB<BB^BB^((((    (BFJRB^"."^^((((     ');$s=$j=$x;$_=
"10 PRINT EMAIL\$\n20 GOTO  10\n";while($"){@==();$d=$s=$$s{n};for(1..
$%){@b=@{$$d{b}};$d=$$d{n}||=$j;my$k;for(@b){$=[$k++].=$_;}}select$f,$
f,$f,&_/5;}sub _{print join $/,@=,$/}eval while(s/(.*?)\n(.*)/$2\n$1/)