#!/usr/bin/perl -w
use strict;
$_='pGiBt(5(),5|G(61),"3;7|",5(),"
2J");$/={iBt(GZB=($_[0])+$_[1])}w|
ile(1){pGiBt(5(),=(23,0),";",=(79,
0),"H",5(),=(8,40),"m\x20");}$/5{"
\e["}';s/\s+//g#$+=7**6-473*(4^5);
;y#B5Z|=G#ncahdr##fugr//fh/g;$_.3;
;s?\$\/(\w)?\x73\x75\x62\x20$1?g#;
;eval#s/=/*/g;tr/362/sub/g;y/%/&/;