#! /usr/bin/perl

# ----------------------------------------------------------------
# John Kerl
# kerl at emtek dot com
# 1996/04
#
# Prints input twice.
# ----------------------------------------------------------------

while ($line = <>) {
	print $line;
	print $line;
}