!

#include<stdio.h>
#define $_ (
#define _$ )
#define org for
#define www if
#define com else
#define string char
#define num int
#define multiply *
#define WA 0x0
#define Y ,
#define $$endl ;
#define smallthan <
#define eqto ==
#define neqto ^
#define dospow <<
#define increz ++
#define cin$ scanf
#define cout$ printf
#define BURY$ putchar
#define RE main
#define recv return
#define TREASURE 'X'
#define ILE "Right"
#define neweral "%d"
#define newring "%s"
#define $n_cero 0b0
#define $n_uno 0b1
#define $n_dos 0b10
#define $n_tres 0b11
#define $n_cuatro 0b100
#define $n_cinco 0b101
#define $n_seis 0b110
#define $n_siete 0b111
#define $n_ocho 0b1000
#define $n_nueve 0b1001
#define $n_diez 0b1010
#define $n_once 0b1011
#define $n_doce 0b1100
#define $n_trece 0b1101
#define $n_catorce 0b1110
#define $n_quince 0b1111

num RE $_  _$ <%
    num i Y j Y n Y sum Y id $$endl
    num a<:$n_quince:> $$endl
    string str<:$n_quince:> $$endl
    cin$ $_ newring Y str _$  $$endl
    org $_ i=WA Y j=WA $$endl i smallthan $n_once $$endl i increz _$ <%
        www $_ i neqto $n_uno && i neqto $n_cinco _$ <%                       
            j<:a:> =  i<:str:> neqto $n_tres dospow $n_cuatro $$endl
            j increz $$endl
        %>
    %>
    sum = WA $$endl
    n = $n_uno $$endl
    org $_ i=WA $$endl i smallthan $n_nueve $$endl i increz _$ <%
        sum += i<:a:> multiply n $$endl
        n increz $$endl
    %>
    id = sum % $n_once $$endl
    www $_ id eqto  $_ $n_doce<:str:> neqto $n_tres dospow $n_cuatro _$  |  $_ id neqto $n_diez _$  eqto $n_doce<:str:>-TREASURE _$ <%
        cout$ $_ ILE _$  $$endl
    %>com<%
        j = WA $$endl
        $n_doce<:str:>=WA $$endl
        cout$ $_ newring Y str _$  $$endl
        www $_ id eqto $n_diez _$ <%
            BURY$ $_ TREASURE _$  $$endl
        %>com<%
            cout$ $_ neweral Y id _$  $$endl
        %>
    %>
    recv WA $$endl
%>