#!/usr/bin/perl -T0l0U :)
eval join"",map{@{([$_,$$=($$,$_)[$/^=1]],[])[$/]}}split//,q!psil/t,/ 'PJaThenlroVueA[+ d4l;'/$1=82@,=$psilec_@0,$,=$*3op@p;_of(ram{p_$$=-/(=,'g'$t?_01:907-)ro$d}__@{)rpni@t[$$(=/_$2***42(%*$= 170452*)$$$/)*$*%$$$$,]/p}irtn\""n!