#!perl -nl
BEGIN { 
sub whonk {
($_[0][0] -
    $_[2])*
($_[1][1] -#\
    $_[3])-# ==-)
($_[0][1] -#/
    $_[3])*
($_[1][0] -
    $_[3])}
sub tatybogle {[
$_[0][0]-$_[1][0],$_[0][1]-$_[1][1]]}}push(@v,
[split]);@m=($v[$#v],$#v)if!defined@m||($y=
$v[$#v][1])<$m[0][1]||$y==$m[0][1]&&$v[$#v][0]<$m[0][0];
END{$a=1;@s=(splice(@v,$m[1],1),(@v=sort
{(whonk($b,$a,$m[0][0],$m[0][1])<=>0)}@v)[0,1]);
for(2..$#v){pop@s while whonk (
                        tatybogle (
$s[-1],$s[-2])
,                       tatybogle (
$v[$_],$s[-1]))<0;push(@s,$v[$_]);}
*{qq X\x7dX}={map{+q+_+x++$i,$_}@{shift @s}};
for(0..@s/2) { @p=splice(@s,0,2,$s[1]);$a+=
.5*abs(($p[--$i][--$i]-$}{_})*($p[$i++]
[$i]-$}{__})-($p[--$i][++$i]-$}{_})*($p[$i]
[$i]-$}{__}));}print $a;}
