#!/usr/bin/perl
while(defined($d[$.]=<DATA>)){}{eval pack("c$.",@d)}
__END__
117
115
101
32
76
87
80
58
58
83
105
109
112
108
101
59
112
114
105
110
116
102
32
34
37
115
92
110
34
44
40
40
103
101
116
40
34
104
116
116
112
58
47
47
119
119
119
46
105
116
107
110
111
119
108
101
100
103
101
46
99
111
109
47
116
112
106
34
41
41
61
126
109
35
60
84
73
84
76
69
62
92
115
42
40
46
42
63
41
92
115
42
60
47
84
73
84
76
69
62
35
105
115
41
59
