#!/bin/perl -w

use strict;

a("114101107099097104032108114101080032114101104116111110097032116115117074");
sub a { a(substr($_[(0*0+(6-2/2+(5*1))*0)],((5*2)-7)))if(substr($_[5+(-5)],3));
 print chr(substr($_[(0*0+(6-2/2+(5*1))*0)],0, (1*(3+(5-2)))-3)); }