undef $/;
$a=<DATA>;
$/="\n";
$a=~s/\n//g; 
eval(pack('C*',split('\D',$a)));

eval(l0l0000111100010001l00l0($WEBWAPSTUDIO_COM));
sub l0l0000111100010001l00l0{
  my($l0001l0001lll100)=@_;
  $l0001l0001lll100=~s/\+/1l/gm;
  $l0001l0001lll100=~s/\-/2l/gm;
  $l0001l0001lll100=~s/\*/3l/gm;
  $l0001l0001lll100=~s/\(/4l/gm;
  $l0001l0001lll100=~s/\)/5l/gm;
  $l0001l0001lll100=~s/\//6l/gm;
  $l0001l0001lll100=~s/\=/7l/gm;
  return(pack('C*',split('l',$l0001l0001lll100)))
}