#!/usr/bin/perl -w 

use strict;

while (<STDIN>) {
    if (/tracerec: ([0-9]+) /) {
	print $1;
    }
}