use strict;
use warnings;

my $input = input();
print $input->(0);
while(<STDIN>){
    my $output = $input->($_);
    last unless $output;
    print $output;
}

sub input {
    my @policy;
    my @damage = qw/ 0 33.21 57.36 72.45 138.87 253.59 298.88 /;
    my($text,@prompt,@result);
    while (<DATA>) {
        if(/TEXT1/../TEXT2/){$text .= $_ unless /[A-Z]+[12]/}
        if(/PROMPT1/../PROMPT2/){chomp; push @prompt, $_ unless /[A-Z]
++[12]/}
        if(/RESULT1/../RESULT2/){chomp; push @result, $_ unless /[A-Z]
++[12]/}
    }
    print $text;
    return sub {
        push @policy, shift;
        return $#policy < 6 ? $prompt[$#policy] : 
            $#policy == 6 ? predict(\@damage,\@policy,\@result) : unde
+f;
    };
}

sub predict {
    my $slope = slope(shift, shift);
    my @r = @{$_[0]};
    if ($slope < 0.625) {
        return "\n     " . $r[0] . percent($slope);
    } elsif ($slope < 0.8) {
        return "\n     " . $r[1] . percent($slope);
    } elsif ($slope < 1.25) {
        return "\n     " . $r[2] . percent($slope);
    } elsif ($slope < 1.6) {
        return "\n     " . $r[3] . percent($slope);
    } else {
        return "\n     " . $r[4] . percent($slope);
    }
}

sub percent {
    if ($_[0] < 0.8) {
        return "\n     You're paying " . int(100*(1-$_[0])) . "% less 
+than you should.\n";
    } elsif ($_[0] > 1.25) {
        return "\n     You're paying " . int(100*($_[0]-1)) . "% more 
+than you should.\n";
    } else {
        return "\n     You're paying " . int(100*$_[0]) . "% of the \"
+right\" price.\n";
    }
}



sub sum {my $sum = 0; $sum += $_ for @_; $sum}

sub mean {sum(@_)/scalar(@_)}

sub sumn {
    my($n, $mean) = (shift, mean(@_));
    sum(map{($_ - $mean)**$n} @_);
}

sub sumxy {
    my @x = @{$_[0]};    
    my @y = @{$_[1]};
    return unless $#x == $#y;
    my ($xmean, $ymean) = (mean(@x), mean(@y));
    my $sumxy = 0;
    $sumxy += ($x[$_] - $xmean)*($y[$_] - $ymean) for 0..$#x;
    return $sumxy;
}

sub slope {
    my($x, $y) = @_;
    sumxy($x, $y) / sumn(2, @{$x});
}


__DATA__
TEXT1

By Federal Law, as a sysadmin, you're required to purchase 
Bug Insurance. The insurance policy will pay the plaintiff 
the damage incurred by each bug your system causes. Let
 
   $54.99 be the max possible damage claimable per bug,
       
   5.49% the chances for each bug to independently occur. 

Using your "instinct" only, how much are you willing to 
pay for a policy that protect you against...

TEXT2

PROMPT1
... 11 bugs: 
... 19 bugs: 
... 24 bugs: 
... 46 bugs: 
... 84 bugs: 
... 99 bugs: 
Press any key to quit. 
PROMPT2

RESULT1
You're a Gambler--code w/o your monitor on.
You're a Risk-taker--code & pray, & never debug.
You're a Stone-Cold Human Calculator--code in assembly.
You're a Risk-Averser--even debug a plain text.
You're a Wuss--even afraid of electrocution by your mouse.
RESULT2
[download]