#!perl

sub aa
{
	$rh=shift;
	$dist=shift;
	return ($rh and $dist)
    ?    2
    :    -2;
}

print aa;