$_=join(' ',reverse(map(ucfirst,split(',',do{%a=('gbckdrzqfrlzbmotgdrziwst','+i-j])/j/;+u-y])/u/;+z])/,/;+a-b])/a/;+m-n])/n/;+g-h])/h/;+z])/
,/;+p-q])/p/;+d-f])/e/;+f])/e/;+z])/,/;+g])/h/;+b])/a/;+d])/e/;');$a=join('',keys(%a));for(1..14){$a{$a}=~s/\+/<PM*BRASIL>/;}for(1..14){$a{$
a}=~s/<P/\$a/;$a{$a}=~s/M/=~s\//;$a{$a}=~s/\*/\(/;$a{$a}=~s/BRASIL>/\[/;}eval($a{$a});$_=$a})))).', ';print;