@/=reverse split//,"74100400751046107510741046106410151005103610"; @\=split//,"greek";foreach(0..4){$m=$_;@\[$_]=chr oct@/[$_*4].@/[$_*4+1].@/[$_*4+2].@/[$_*4+3]}$,=eval eval join'',@\;;$/;;$/=eval join'',@\;@\=split//,"greek";foreach(0..5){$m++;@\[$_]=chr oct@/[$m*4].@/[$m*4+1].
@/[$m*4+2].@/[$m*4+3]}@\[++$m]='r';;;gr:;;die"$,\n"if(!$/);$_=$,;$,=$/;$n=$/-$,;$/=$_%$/;eval eval join'',@\;