#!/usr/bin/perl

use Data::Dumper;

$ndec=0;
$formula=0;
$cpu=0;

$t = {};

while($l = <>)
{
  chomp($l);
  if($l =~ /^ndec/)
  {
  }
  elsif($l =~ /^(\d+) (\d)$/)
  {
    $ndec = $1;
    $formula = $2;
  }
  elsif($l =~ /^(\d+\.\d+)$/)
  {
    $cpu = $1;
    $t->{$formula}->{$ndec} = $cpu;
  }
}

#print Dumper($t);

@formulae = sort { $a <=> $b } keys %$t;
$nform = scalar @formullae;
foreach $formula (@formulae)
{
  $u = $t->{$formula};
  @ndecs = sort { $a <=> $b } keys %$u;
  $count = scalar @ndecs;
  print "$count,2\n";
  $maxdec = 0;
  foreach $ndec (@ndecs)
  {
    $maxdec = $ndec if $ndec>$maxdec;
    $cpu = $u->{$ndec};
    print "$ndec,$cpu\n";
  }
  print ($maxdec*2);
  print "\n";
  print ($maxdec*5);
  print "\n";
}
print "-1\n";