#!/usr/bin/perl

$max = 0;

while($l = <>)
{
  chomp($l);
# 0: inRatio: 0.514247 outRatio: -0.514247
  @f = split /\s+/,$l;
  $in = abs($f[2]);
  $out = abs($f[4]);
  $max = $in if($in>$max);
  $max = $out if($out>$max);
}

print "$max\n";

