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

@[=[
    [ [[[[]]], [[]]], [[[]], []], [[]]                                 ],
    [ [[[[]]], [[]]], [[[[]]], []], [[[[]]]], [[[]]], []               ],
    [ [[[[]]], [[]]], [[[[]]], []], [[[[]]]], [[]], []                 ],
    [ [[[[]]], [[]]], [[[[]]], []], [[[[]]]], [[[]]]                   ],
    [ [[[[]]], []]                                                     ],
    [ [[[[]]], [[]]], []                                               ],
    [ [[[[]]], [[]]], [[[[]]], []], [[[]], []], [[[]]], [[]]           ],
    [ [[[[]]], [[]]], [[[[]]], []], [[[]], []], [[[]]], [[]], []       ],
    [ [[[[]]], [[]]], [[[[]]], []], [[[[]]]], [[[]]]                   ],
    [ [[[[]]], [[]]], [[[[]]], []], [[[]], []]                         ],
    [ [[[[]]], [[]]], [[[[]]], []], [[[]]], []                         ],
    [ [[[[]]], [[]]], [[[[]]], []], [[[[]]]], [[]]                     ],
    [ [[[[]]], []]                                                     ],
    [ [[[[]]], [[]]], [[[[]]]]                                         ],
    [ [[[[]]], [[]]], [[[[]]], []], [[[]]], []                         ],
    [ [[[[]]], [[]]], [[[[]]], []], [[[[]]]], [[]]                     ],
    [ [[[[]]], [[]]], [[[[]]], []], [[[]], []], [[[]]]                 ],
    [ [[[[]]], []]                                                     ],
    [ [[[[]]], [[]]], [[[]], []]                                       ],
    [ [[[[]]], [[]]], [[[[]]], []], []                                 ],
    [ [[[[]]], [[]]], [[[[]]], []], [[]], []                           ],
    [ [[[[]]], [[]]], [[[[]]], []], [[[]], []], [[]], []               ],
    [ [[[[]]], [[]]], [[[[]]], []], [[[]]], []                         ],
	[ [[[[]]], [[]]], [[[[]]], []], [[[[]]]], [[]]], [[[[]], []], [[]] ]
    ];

sub mysub {
    my $count = 0;
    $count    += 2**mysub($_) for @{ shift() };
    $count;
}

print chr mysub $_ for @{ @[[$[]}