#!/usr/bin/perl

$p{'2'}=0;
$p{'3'}=1;
$p{'4'}=2;
$p{'5'}=3;
$p{'6'}=4;
$p{'7'}=5;
$p{'8'}=6;
$p{'9'}=7;
$p{'10'}=8;
$p{'11'}=9;
$p{'12'}=10;
$p{'18'}=11;
$p{'14'}=12;
$p{'15'}=13;
$p{'16'}=14;
$p{'17'}=15;


push(@f,'{22,  46,  {},                              0, {},                          45},');
push(@f,'{23,  42,  {},                              0, {},                          41},');
push(@f,'{24,  43,  {},                              0, {},                          42},');
push(@f,'{25,  44,  {},                              0, {},                          43},');
push(@f,'{26,  33,  {16},                            1, {19},                        32},');
push(@f,'{27,  34,  {14,15,17},                      3, {21,20,7},                   33},');
push(@f,'{28,  35,  {14,15,17},                      3, {21,20,7},                   34},'); 
push(@f,'{29,  36,  {14,15,17},                      3, {21,20,7},                   35},');
push(@f,'{30,  37,  {14,15},                         2, {21,20},                     36},');
push(@f,'{31,  38,  {18},                            1, {22},                        37},');
push(@f,'{32,  39,  {18},                            1, {22},                        38},');
push(@f,'{33,  47,  {7,8,9,10,11,12,14,15,16},       9, {5,4,3,2,1,0,21,20,19},      46},');
push(@f,'{34,  48,  {7,8,9,10,11,12,14,15},          8, {5,4,3,2,1,0,21,20},         47},');
push(@f,'{35,  49,  {18},                            1, {22},                        48},');
push(@f,'{36,  50,  {6,7,8,9,10,11,12,18},           9, {6,5,4,3,2,1,0,22},          49},');
push(@f,'{37,  29,  {18},                            1, {22},                        28},');
push(@f,'{38,  30,  {4,14,15,17},                    4, {9,21,20,7},                 29},');
push(@f,'{39,  31,  {2,3,14,15},                     4, {11,10,21,20},               30},');
push(@f,'{40,  32,  {2,3,18},                        3, {11,10,22},                  31},');
push(@f,'{41,  23,  {16,17},                         2, {19,7},                      23},');
push(@f,'{42,  24,  {14,15},                         2, {21,20},                     24},');
push(@f,'{43,  25,  {14,15,17},                      3, {21,20, 7},                  25},');
push(@f,'{44,  26,  {},                              0, {},                          26},');
push(@f,'{45,  27,  {},                              0, {},                          27},');
push(@f,'{46,  45,  {6,7,8,9,10,11,12,14,15,16,17}, 11, {6,5,8,3,2,1,0,21,20,19,7},  44}');


for (@f) {
  if (/^(\s*\{\d+,\s*\d+,\s*\{)([^\}]*)(.*)/) {
    $a=$1;$b=$2;$c=$3;@r=split(',',$b);
    $bb='';
    for $n (@r) { $bb.=$p{$n}.','; }
    $bb=~s/\,$//;
    print "$a$bb$c\n";
  }
}
