#!/usr/bin/perl -w
use strict;

$3{3}='(3<<3)-3/3~(3+3<<3)+3**(3+3/3)-3*3-3-3~3+3/3^3**3+3+3-3/3>(3<
<3)/3+3~((3+3<<3)-3*3-3/3)*3%(3<<3)-3-3>3**(3+3/3)+3**3-3-3/3>3*3%(3
-3/3)*(3+3<<3)-3/3+3*3>3+3-3/3>3*(3+3**3+3-3/3)+3/3$3+3*3=3+3**3+3-3
         /3>>3>=-3/          3+3*(-3*3+          (3+3<<3))~         
         (3<<3)-3!3          **(3/3+3)-          3/3+3**3>3         
         **3-(3<<3)          /3>>>(3+3<          <(3+3/3))+         
         3/3$(3+3<<          3)/3~3*(3<          <3)/(3-3/3         
         )*3^3-3/3^          3*(-3*3+(3          +3<<3))-3+         
         3/3%3*3-3/          3%3*(-3*3+          (3+3<<3))-         
         3/3$3*3+3/          3$3*3+(3-3          /3)*(3+3<<         
         3)-3/3-3^3          -3@(3<<3+3          )/3+3*3+3/         
         3@3*3+3+3^          3*(-3*3+(3          +3<<3)-3/3         
         )~(3<<3)/3          +3+3~-3+(3          -3/3)*(3+3         
         <<3)-3/3+3          *3%3+3*3+3          /3>>3**3*3         
         -3/3>>>(3+          3<<3)/3+3+          3==3**(3+3         
         )/(3*3)+(3          <<3)-3-3/3          ~3**3-3-3-         
         3/3>=3+(3+          3<<(3+3/3)          )>>3/3+(3+         
         3<<3)/3>(3          <<3)/3*(3+          3/3)!3+3+3         
         /3~(3**3+3          *3+3/3)*3!          3+3!3*(3*3         
         +3/3+3**3)          -3/3@3<<3$          3/3+(3+3<<         
         3)-3$3/3&3          *((3+3<<3)          -3*3)+3/3'         
         ;$3{3}=~s;          | |\n;;gs;          @3=split'"         
|[^3)*+(</-]+',$3{3};for(@3){$_=eval}$3{3}=3-3-3/3;while(++$3{3}<@3)
{$3[$3{3}]=$3{3}%(3-3/3)?$3[$3{3}]:chr($3[$3{3}]+3**3+3+3)}%3=@3;@3=
();$3{33}=[sort keys%3];for(@{$3{33}}){@3=(@3,chr$3{$_})}print@3,$/;