@my = @our =(company, "KBW");
{integrity, family, money, diligence};
study banks;
write "research";
join buyers & sellers, investors & entrepreneurs;

wait;
listen(airplanes, explosions);
alarm delayed;

warn friends if possible;
flock quickly, to-the-exits;
(running=>down=>the=>stairs);

while (<thinking>, <talking>) {40% die};
burned and crushed and smashed and smothered;
REBUILD:  connect servers, clients;
          link databases, routers;
          sleep nervously for months;
do work until exhausted;

TASK:  read emails, $messages, archives;
for (@ll-the-dead){
  "Are you okay?";
  "Write back to me!";
  "I miss you, daddy";
  "How could you let them DIE?!";
  for(business){send on, forward, respond} if (appropriate){}
  else{delete $message{sadly}}
}


study banks;
write "research";
join buyers & sellers, investors & entrepreneurs;

###################################################################;


$_ = $my[1];$m = $s = ord(chop);
$k = chr(ord(chop $our[1]) - (($x = chop $s) + chop $s));print ''.
(reverse $k.chr($m - $x).chr((ord(chop))-1).chr((ord(chop))-1));