#!/usr/bin/perl -W -T

$stop = 0;

while( $stop == 0 )
{
    $line = <>;
    print $line;
    if($line =~ /Tetrahedra/)
    {
        $stop = 1;
        print "0\n"
    }
}
