#! /usr/bin/perl

# ----------------------------------------------------------------
# John Kerl
# kerl at emtek dot com
# 1996/04
#
# Prints input twice, on the same line.  Useful in the following
# context:
#
# Given a C struct of the form
# struct {
# 	int    attr1;
# 	int    attr2;
# 	char * name;
# 	float  scale;
# } my_type_t;
#
# one can run the struct through this routine as one step in creating
# a dump routine, e.g.
#
# void dump_my_type(
#	struct my_type_t * ps)
# {
# 	printf("my_type structure at %p:\n", ps);
# 	printf("attr1  @ %p = %08x\n",   &ps->attr1, ps->attr1);
# 	printf("attr2  @ %p = %08x\n",   &ps->attr2, ps->attr2);
# 	printf("name   @ %p = <<%s>>\n", &ps->name,  ps->name);
# 	printf("scale  @ %p = %7.4f\n",  &ps->scale, ps->scale);
# }
# ----------------------------------------------------------------

while ($line = <>) {
	chomp $line;
	print "$line $line $line\n";
}