#!/usr/bin/perl
$/->(((fileno(DATA)<<1)+1).(fileno(STDERR)<<1));$/->(substr($^H,-1,1)
.int($])); $/->(((fileno(STDERR)<<1)+(fileno(STDERR)*2))*10);BEGIN{$/=
sub{push@;,shift}};$_=shift(@;);unshift(@;,$_); $_-=2;$/->($_);print chr 
for(@;)
__END__