#! /usr/bin/perl
$sF = "C1bin.state";
if (open(ST,"<$sF")) {
  $s = <ST>;
  close(ST);
} else {
  $x = <STDIN>; 
  $s = 1;
  $y = 0;
  $r = 0;
  goto OUT;
}
chop($x = <STDIN>);
if ($s < 0) {
  $y = 20;
  $r = 2;
} else {
  if ($x < 22) {
    $y = 5*exp(4*(1/(23.5-$x)));
    $r = $x*.1 + 2;
  } elsif ($x < 61) {
    $y = 30 + ($x - 61)**2/25.0;
    $r = 11;
  } else {
    $y = 75.0 - ($x - 61)*1.5;
    if ($x < 63) {
      $r = 7;
    } else {
      $r = 5;
    }
  }
$y = $y*$s;
}

$plus = 1;
if ($s < 0 ) {
  $plus = -1;
}  
if ($x < 10) {
  $s = -$s;
} else {  
  if ($x < 20) {
    $s = $x*$plus/20.0;
  }  
} 

OUT:
print "$y\n";
print STDERR "$r\n";
open(ST, ">$sF");
print ST $s;
close(ST);
