#!/usr/bin/perl -w
use diagnostics;
$oldLine = 0;
while(defined ($newLine = <STDIN>)) {
  if($newLine eq $oldLine) {
    ;
  } else {
    print "$newLine";
  }
  $oldLine = $newLine;
}