#!/usr/bin/perl -X 
chop ($x = <STDIN>);
chop($y = `echo $x | ./C1.bin`);
$x = $y;
chop($y = `echo $x | ./T2.bin`);
$t = $y;
$N=1;
while (abs($t) > 0.2) {
chop($y = `echo $x | ./C3.bin`);
$x = $y;
chop($y = `echo $x | ./T2.bin`);
$t = $y;
if($N++>1000) {die qq{LOOPING}};
}
$y = $x;
$x = $y;
$xs = $x;
chop($y = `echo $x | ./T4.bin`);
$x = $xs;
if (abs($y) > 0.2) {
chop($y = `echo $x | ./C5.bin`);
} else {
chop($y = `echo $x | ./C6.bin`);
}
print "$y \n";
