#!/usr/bin/env perl

$|++;

while (<STDIN>) {
  exit 0 if $_ eq "DIE\n";
  print;
}
