#!/usr/bin/perl

use strict;
use warnings;

my ($cur_rec, $prev_rec, $line) = ("", "", "");

while ($line = <STDIN>) {
    $cur_rec = join("", (split(/\|/, $line))[1..4]);
    if ($cur_rec ne $prev_rec) {
        print $line;
    }
    $prev_rec = $cur_rec;
}