#!/usr/bin/perl

$last="";
while($l=<>){
	if($l eq $last){
		next;
	} else {
		print $l;
		$last=$l;
	}
}