#!/bin/perl
use POSIX;
use FileHandle;
use integer;
autoflush STDOUT 1;

$m1 = $m2 = $m3 = $m4 = 0;
while (<>) {
  ($spahn1, $spahn2, $spahn3, $spahn4) = /\sI(\d+)([a-z])(\d+)\.(\d+)(?=\s)/;
  $spahn2 = (ord $spahn2) - (ord "a");
  if ($spahn1 > $m1) {$m1 = $spahn1;}
  if ($spahn2 > $m2) {$m2 = $spahn2;}
  if ($spahn3 > $m3) {$m3 = $spahn3;}
  if ($spahn4 > $m4) {$m4 = $spahn4;}
#  print "<$spahn1-$spahn2-$spahn3-$spahn4>";
}
print "<$m1-$m2-$m3-$m4>";
