use AID;
BEGIN { print 0+""; }
print $x;