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


                @[=[[[[[[]]],[[]]],[[[]],[]],[[]]],[[[[[]]],[[]]],
                 [[[[]]],[]],[[[[]]]],[[[]]],[]],[[[[[]]],[[]]],[
                  [[[]]],[]],[[[[]]]],[[]],[]],[[[[[]]],[[]]],[[
                   [[]]],[]],[[[[]]]],[[[]]]],[[[[[]]],[]]],[[[
                    [[]]],[[]]],[]],[[[[[]]],[[]]],[[[[]]],[]]
                     ,[[[]],[]],[[[]]],[[]]],[[[[[]]],[[]]],[
                      [[[]]],[]],[[[]],[]],[[[]]],[[]],[]],[
                       [[[[]]],[[]]],[[[[]]],[]],[[[[]]]],[
                        [[]]]],[[[[[]]],[[]]],[[[[]]],[]],
                         [[[]],[]]],[[[[[]]],[[]]],[[[[]]
                          ],[]],[[[]]],[]],[[[[[]]],[[]]
                           ],[[[[]]],[]],[[[[]]]],[[]]]
                            ,[[[[[]]],[]]],[[[[[]]],[[
                             ]]],[[[[]]]]],[[[[[]]],[
                              []]],[[[[]]],[]],[[[]]
                               ],[]],[[[[[]]],[[]]]
                                ,[[[[]]],[]],[[[[]
                                 ]]],[[]]],[[[[[]
                                  ]],[[]]],[[[[]
                                   ]],[]],[[[]]
                                    ,[]],[[[]]
                                     ]],[[[[[
                                      ]]],[]
                                       ]],[
                                        [[[
                                        []]
                                       ],[[]
                                      ]],[[[]
                                     ],[]]],[[
                                    [[[]]],[[]]
                                   ],[[[[]]],[]]
                                  ,[]],[[[[[]]],[
                                 []]],[[[[]]],[]],
                                [[]],[]],[[[[[]]],[
                               []]],[[[[]]],[]],[[[]
                              ],[]],[[]],[]],[[[[[]]]
                             ,[[]]],[[[[]]],[]],[[[]]]
                            ,[]],[[[[[]]],[[]]],[[[[]]]
                           ,[]],[[[[]]]],[[]]],[[[[]],[]
                          ],[[]]]];sub _{my$o=0;$o+=2 **_
                         ($_)for@{shift,};$o}print chr _$_
                        for @{@                     [[$ []}