#! /usr/bin/perl

$field = $ARGV[0] ? $ARGV[0] : "P";
$counter = $ARGV[1] ? $ARGV[1] : 1;

while (<>) {
	/^$/ && printf "%%$field %d\n", $counter++;
	print;
}