#!/usr/bin/perl
#
# 

while (<STDIN>) {
  $line = $_;
  @words = split(/,/, $line);

  $nu = $words[6];
  $fnu = $words[7];
  $nu_fnu = $nu*$fnu;

  printf " %12.5e ,  %12.5e \n", $nu, $nu_fnu;
}


exit 0;