#!/usr/bin/perl -w

$d="124x65x98x62x41
x35x66x41x88x105x103x104
x42x35x45x35x66x41x111x98x99x
104x118x115x102x42x35x45x35x66x41x
100x115x102x122x42x35x45x35x66x41x118x
111x113x121x115x102x42x35x42x60x103x112x115
x33x41x65x98x42x124x116x48x93x41x48x93x35x48x104
x60x116x48x93x42x48x33x93x35x48x104x60x117x115
x48x66x46x78x98x46x110x94x79x46x91x111x46
x123x94x48x79x46x91x111x46x123x94x66
x46x78x98x46x110x94x48x60x116x48
x79x48x113x115x106x111x117x48
x60x37x96x47x62x35x60x35x
60x102x119x98x109x41x37
x96x42x60x126x126";
for(split(/x/,$d)
){$a.=chr($_-1)
;}eval($a);