use FIG;
my $fig = new FIG;

$usage = "usage: predict_starts Objects ClearCalls ProposedCorrections";

(
 ($objects       = shift @ARGV) &&
 ($clear_calls   = shift @ARGV) &&
 ($proposed      = shift @ARGV)
)
    || die $usage;

&FIG::run("make_calls_for_start_predictions < $objects > /tmp/with.calls.$$"); 
&FIG::run("order_corrections_for_start_predictions < /tmp/with.calls.$$ > $clear_calls 2> $proposed");
system "cat /tmp/with.calls.$$";
unlink("/tmp/with.calls.$$");