use strict;
use JSON;
use Data::Dumper;

my $str = '';
while(<STDIN>) {
	$str .= $_;
}

$str=~s/^[\s\S]*?([\[\{][\s\S]+[\]\}])[\s\S]*$/$1/;
my $explain = decode_json($str);

#print Data::Dumper->Dump(decode_json($str)), "\n";

my $cost_sort = $explain->[0]->{Plan}->{'Startup Cost'} -
				$explain->[0]->{Plan}->{Plans}->[0]->{'Total Cost'};


my $time_sort = $explain->[0]->{Plan}->{'Actual Startup Time'} -
				$explain->[0]->{Plan}->{Plans}->[0]->{'Actual Total Time'};

#print "cost_sort $cost_sort\n";
#print "time_sort $time_sort\n";
#print "1e$ARGV[0]"*1.0,"\n";
print "$ARGV[0]\t$cost_sort\t$time_sort\n";