#!/usr/bin/perl
use strict;
package q;
sub ::_{
   $,{q;,;}=q,35787677-758717277656275-741627569-76558606862755',
   ;$;;$,.=pack(q,c*,,,map ($_-42+unpack(q,c,,,uc(q;q;)),
   unpack('(A2)*',($,{','}))));{{},print(q//,$/);q}}}}q;
   q-main::q--;>_(@_,q,,,);q}
}