#!/usr/bin/perl
print (-2**2);
print (-(2)**2);

$a=2;
print (-$a**2)