#!/usr/bin/perl -w
use strict;

chomp(my $msisdn = <STDIN>);
$/ = ""; # read paragraphs
my $para;
my $lastHeading;
my @lines;

while ($para = <>) {

    @lines = split(/\n/, $para);

    if (@lines == 1) {  # A heading
	$lastHeading = $lines[0];
	next;
    }

    if ($lastHeading eq "MSTerminating") {
	if ($lines[8] =~ m/$msisdn/) {
	    print "MSTerminating\n";
	    print "\n";
	    print "$lines[9]\n";
	    print "$lines[4]\n";
	}
    } elsif ($lastHeading eq "MSORIGINATING") {
	if ($lines[7] =~ m/$msisdn/) {
	    print "MSORIGINATING\n";
	    print "\n";
	    print "$lines[7]\n"; # sixth line
	}
    } elsif ($lastHeading eq "TRANSIT") {
	if ($lines[7] =~ m/$msisdn/) {
	    print "$lines[7]\n";
	}
    } elsif ($lastHeading eq "mSOriginatingSMSinSMSIWMSC") {
	if ($lines[4] =~ m/$msisdn/) {
	    print "$lines[4]\n";
	}
    }
}