use strict;
use bignum;

sub fact{
    my($r,$n) = (1,shift);
    $r *= $n-- while $n;
    return $r;
}

print 1-((fact(100)/fact(98))/100**2);